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SYSTEM PERIPHERAL PACKAGES AND OVERLAYS 

INTRODUCTION 

All peripheral packages that begin with a numberal are special 
operating system packages or equipment driver overlays. The system 
packages begin with the numeral "1" and begin execution at addre-s 
1000 of peripheral memory. Their functions are to load jobs onto the 
disk, make control point assignments, process the control statements, 
and print the jobs' output. Whenever specialized operations , i.e. 
read tape, punch cards, translate control statements, etc., are re- 
quired, an overlay is loaded into the requesting PP at location 2000. 
These overlays begin with the numberal "2 M and parameters are passed 
tn them by direct core cells (l-74g). Most of them are maintained -in 
RPL (resident peripheral library), however they could be kept in PLD 
(peripheral library directory) if the system packages searched this 
table. Since most of them are fairly short, the system packages 
expect them to reside in central memory. 



ROUTINE : 



1AJ - Advance Job. 



PURPOSE: To advance the status of a job by controlling the processing 
of the next control card or terminating the job. 

GENERAL: This package is called by MTR on its main loop and the following 
conditions prevail when 1AJ is called. 

a. A job has been assigned to a control point by 1BJ. 

b. The central processor is not executing the job at the 
control point. 

c. The storage move flag is not set. 

d. The control point is not listed in the CPU stack, i.e., 
it is not waiting on the central processor. 



METHOD: 1. If an error flag for the control point is set, 2EF is 
called to process the error. This routine will issue 
the proper error diagnostic to the dayfile and then 
position the control card buffer parameters to the 
statement after an EXIT card or, if no EXIT card to 
found, to the record separator. 

2. 2TS is called to process the control statements in the 
order encountered and all the statements will be processed 
before 1AJ regains control. 

3. If the control point has zero priority, i.e., PP program 
that uses central memory, all files and equipment assigned 
to this control point are dropped by 2DF and monitor. A 
request is also made to monitor to release the storage 
reserved by this control point and a pause loop is main- 
tained until the field length is zero. The control point 
is then cleared of information and 1AJ is released. No 
dayfile data will be written in this case. 

4. In the normal case with a priority set at the control 
point, an attempt is made to locate an "OUTPUT" circular 
buffer so that it may be emptied if it is not. The 
first 100g words of the program are searched for the 
buffer. The lower 18 bits of each of these words specify 
an address where the file name and status is located. If 
the address is within the field length, the name is checked 
for "OUTPUT." The search continues until RA+lOOg words 
have been checked. 



5. If the buffer status indicates that a file mark has already 
been requested, it is assumed that the buffer is emptied 

of usable information. If the file mark is not set, then 
the buffer will be dumped if 

a. it is a disk file 

b. the last operation was a write. 

2WD is called to write the buffer contents on the disk. 

6. Both the amount of central processor and peripheral 
processor running time is read from the control point, 
converted to decimal, and sent to the dayfile. 

7. A search is made of FNT to find a file named "OUTPUT 11 
assigned to this control point. If there is none, then 
such a name is entered into the FNT so that the dayfile 
can be printed. 

8. The file name is then changed to that of the job name 
and the job's priority is also put into the FNT. The 
file is released from the control point by putting a 
zero value in the control point byte. This action will 
cause the print routines ( ID J or 1TD) to sense a file 
ready for printing. 

9. All files assigned to this control point in the FNT are 
dropped by 2DF. The FNT/FST entries are completely zeroed. 

10. The upper most byte of the EST has the control point 
assignment for the equipment. All the pieces of equipment 
assigned by this job are released by a monitor request. 

11. The control point area is then cleared and 1BJ is called 
to this PP so that another job may be assigned. 
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1AJ ROUTINES 



1000 

1100 
1200 
1320 
1410 
1500 
1640 
1700 
1740 



MAIN PROGRAM 

RECORD RUNNING TIMES 
DECIMAL CONVERSION 
RELEASE OUTPUT FILE 
DROP FILES 

SEARCH FOR OUTPUT BUFFER 
BEGIN OUTPUT FILE 
CALL SUBROUTINE 
CLEAR CP AREA 



1700, 1410, 1740, 1500 
1100, 1320, 100, 12-760 

1200, 530, 530 



1640 

1700, 23-760 

1700 

740, 750 

2000 

10-760, 17-760 



DIRECT CORE CELLS 



1000 



1100 



1200 



P10/14 

P55 

P56 

P50/54 

P70 

P71 

P72 

P74 

P75 

P01 

P10/14 

P20/30 

P74 
P10/14 



CP STATUS 

RA 

FL 

CONTENTS OF INPUT REGISTER 

CONSTANT 1 

CONSTANT 100 

CONSTANT 1800 

CP ADDRESS 

ADDRESS OF INPUT REGISTER 

MESSAGE WORD COUNT 

CPTIME, LATER PP TIME 

CP TIME MESSAGE, LATER PP 
TIME MESSAGE 

CP ADDRESS 
CP OR PP TIME 
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P20/30 GP TIME MESSAGE. LATER PP 

TIME MESSAGE 

P71 CONSTANT 100 

1320 P10/14 FNT ENTRY 

P20/24 FNT STATUS 

P40/44 CP(21) WITH ADDED PRIORITY 

P50/54 INPUT REGISTER 

P74 CP ADDRESS 

1410 P10/14 FNT STATUS, LATER EST ENTRY 

P20/24. EST STATUS 

P40/44 FNT ENTRY 

P46 FIRST OF FNT 

P47 IN OF FNT 

P50/54 INPUT REGISTER 

P74 CP ADDRESS 

1500 P01 SEARCH ADDRESS 

P10/14 ARGUMENTS LOCATED AFTER RA+2 

P20/24 CONTROL WORD OF ARGUMENT AT 

RA+2+n 

P40/44 BUFFER STATUS 

P45 LAST BYTE OF CONTROL WORD 

P54 RA 

P55 FL 

P57 FST ADDRESS 

1640 P01 CONSTANT 2 

P10/14 FNT ENTRY 

P20/24 FNT STATUS 

1700 (A) SUBROUTINE NAME 

P01 RPL INDEX 

P02/03 SUBROUTINE NAME 
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1740 



P04 

P10/14 
P01 
P10/14 



RPL STARTING ADDRESS 
RPL ENTRY 



MAXIMUM 200 Q WORD COUNTER 
o 

CP STATUS, LATER ZERO WORD 






READ ffCFE=iENCE ACCESS AND FIELD 
LENGTH FROM CONTROL POINT 







ik 


jft F 


.AG 5 


ET 


? 




NO 


"* u 










, 


YES 






1 
1 






Ch 


-L 


2EF 


OVER. 


.AY 












! 










CA 


-L 


2TS 


OVERLAY 







tl CONTROL POINT HAVE ZERO PRIORITY ? 



| YES 



r* 



.J UlARCH F(l7 FOR ASSIGNED FILE I NO 

Is tmehe a file assigned to this control point ? 



r s 



Call 2DF overlay 



I SEARCH EST FOR ASSIGNED EQUIPMENT 

| IS THERE AN EQUIPMENT ASSIGNED TO THIS CONTROL POINT ? 



NO 



YES 



2L. 



REQUEST MONITOR RELEASE EQUIPMENT 



REQUEST MONITOR RELEASE CENTRAL STORAGE 
PAUSE FOR MONITOR 



V' 



IS FIELD LENGTH ZERO ? 



YES 



Clear control point area 
release fpu 



BEGIN search of central storage for output buffer 

SET INITIAL ADDRESS TO RA f 2 



DOES NEXT WORD HAVE A CLEARED UPPER BYTE ? 



DOES NEXT WORD HAVE LOWEST 18 EITS CLEARED ? 



YES 



DOES LOWEST 18 BITS EXCEED FIELD LENGTH ? \ 



1 YES 



NO 



IS CONTROL WORD AT THIS IB 
BIT ADDRESS NAMED OUTPUT ? 



ADVANCE SEARCH ADDRESS 

HAS SEARCH REACHED RA + IOOB ? 



YES 



DOES CONTROL WORD CONTAIN A FILE MARK STATUS ? 



NO 



YES 









\l 










SET 


CONTROL 


WORD 


STATUS 


TO 


REGUEST 


FILE 


MARK 



Call 2BP overlay 



Is THIS FILE ON DISK ? 



NO 



Has file been used ? 



\v 



IS FILE IN READ MODE ? 



YES 



NO 



5> CALL 2WD' OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



V 



READ CP TIME FROM CONTROL POINT AREA 

CONVERT TIME TO DECIMAL SECONDS AND MILLISECONDS 

DAYFILE MESSAGE- CP XXXX.XXX SECONDS 



READ PP TIME FROM CONTROL POINT AREA 

CONVERT TIME TO DECIMAL SECONDS AND MILLISECONDS 

CAYFILE MESSAGE - PP XXXX XXX SECONDS 



( NEXT PAGE ) 
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yes r 



1IAJ PACKAGE CONTINUED) 



V 



DOES FNT CONTAIN AN OUTPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



REOUEST FNT CHANNEL 

IS THERE A BLANK ENTRY IN FNT ? 



NO 



> RELEASE FNT CHANNEL 



Enter an output file for this control point 
release fnt channel 



J±- 



> Is file assigned to disk ? 



YES 



REWIND FILE 

REPLACE OUTPUT FILE NAME WITH JOB NAME AND PRIORITY 

RELEASE FILE FROM CONTROL POINT 



Call 2DF overlay 



YES I 



SEARCH FNT FOR ASSIGNED FILE 

IS THERE A FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



Request monitor release equipment 



YES 



SEARCH EST FOR ASSIGNED EQUIPMENT 

IS THERE AN EQUIPMENT ASSIGNED TO THIS CONTROL POINT ? 



Clear control point area 
Call IBJ package to this ppu 
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ROUTINE: 



1BJ -- Begin Job 



PURPOSE: 



To assign a job to a control point and process the job card. 



GENERAL: The package is called by DSD where "X.NEXT" is requested and 
recalled by 1AJ. The control point assignemtn is specified 
in the input register upon entry to the package. 



METHOD: 



1. If the error flag in CP(20) is set, the package is re- 
leased. The error will be processed later by 1AJ and 
2EF. 



2. If the priority is not zero, this is a recall entry. 
Otherwise, the following steps occur: 

a. A search is made through FNT for the highest priority 
file of TYPE (INPUT) and no control point assignment, 
If none is found, the job name is set to NEXT (for 
display) and the message IDLE sent to display and the 
package released in recall status. 

b. If a file was found, the file name in FNT is set as 
job name, the file name is changed to INPUT, and the 
TYPE is changed to local. Also, the priority of 
the job is set in the CP. 

3. If the job cards have been loaded, this is a recall entry. 
Otherwise, the following steps occur: 

a. 300„ words of central memory are requested of MTR. 
If not assigned, the message WAITING FOR STORAGE is 
sent to display and the package released in recall 
status . 

b. If 300 words were assigned, the first ten words are 
set as follows: 



RA =4*A+1 = RA+2 = 

RA+3 = 

RA+4 = RA+5 = RA+6 = 

RA+7 = 








INPUT 


10 





010 





0300 



File Name and Buffer 
FIRST, IN, OUT Status 
LIMIT 



2BP is called to verify the parameters and set 
direct core cells for 2RD. 

2RD is called to read the control statement record 
into CM. 



FST is updated to reflect a completed read. The 
control statements are moved from the CM buffer to 
CP control statement buffer using PP locations 
beginning at 7000 as a transient buffer. 
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f. CP(21) is set to reflect the reading of the control 
statements. 

g. 2TJ is called to translate and process the job card. 
The time limit specified on the JOB card is set by 
MTR. 

4. The field length specified on the job card is requested of 
MTR. If not assigned, the message "WAITING FOR STORAGE" 
is sent to display and the package released in recall 
status. 

5. If MTR assigned the memory, the job card is issued to the 
dayfile. 

6. Finally, the package is released. The remaining state- 
ments will be processed later by 1AJ and 2TS. 

NOTES: All console messages are sent to display by entering the 
message in CP (30-37). These messages are line 3 of the 
control point display. 

The job card is sent to the dayfile by storing it in the 
message buffer (address specified by P77) and issuing a 
F01 request to MTR. 

All overlays called by 1BJ must be in RPL since PLD is not 
searched when calling the overlays. These overlays include 
2BP, 2RD, 2TJ. 

Two recall flags are used: 

a. priority given by CP(22). 

b. control cards loaded or not loaded by. CP(21). 

Three conditions may exist which will cause 1BJ to be released 
in a recall status. These are: 

1. If there exists no unassigned input files in FNT of the 
' TYPE input. 

2. If MTR will not assign storage for the buffer to load the 
control cards into CM. 

3. If MTR will not assign storage for the job as specified 
by FL on the JOB card. 

Upon entry to IB J, two flags (see above) specify whether this 
is the initial entry or a recall entry. If it is a recall 
entry, the flags given above cause the package to skip the 
areas of code it has executed on a previous call. For example, 
if the priority given in CP(22) is zero, this is either the 
initial entry or no unassigned input file was found on the 
previous entry (same as initial entry). If the priority is 
not zero, a file has been assigned and the coding to find and 
assign a file is bypassed. If the job cards have not been 
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loaded (specified by CP (21 byte 11-0) = 0) they must be loaded 
into the CP control statement buffer. If they have been 
loaded, this coding is skipped. If the priority is non-zero 
and the job cards are loaded, or after these have been done, 
storage is requested for the job. If not assigned, the package 
is released in recall status again. Upon next entry all coding 
will be skipped except this storage r.equest since the 
priority will be non-zero and the job cards are loaded. 

Releasing a PP in recall status involves storing the contents 
of the input register in CP(25) and then releasing the PP 
via MTR request 12. A normal release leaves CP(25)=0. 
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1BJ Ron Lines 



1000 
1100 
1240 

1300 

1400 
1440 
1500 



Main Program 

Search for Job 

Call (Overlay) 
Subroutine 

Read Control 
Cards 

Request Storage 

Read Job Cards 

Issue Statement 



1100, 1440, 1400, 1500, 12-760 
740, 750, 12-760, 24-760 



1240 

10-760, 12-760 

1400, 1300, 1240, 14-760 

01-760 



1BJ Routine pirect Core Parameters 



1000 
1100 

1240 
1300 



1400 



1440 



1500 



P75 

P50/54 

P74 

(A) 

P54 

P55 

P57 

P63 

P65 

P70 

P74 

(A) 

P56 

P74 

P36 

P37 

P55 

P74 



after control cards are read 



Address of Input register 

Contents of input register 

Address of control point 

Name of overlay to be loaded and executed 

Field Length (FL) from CP-20 

Reference Address (RA) 

Address of INPUT FST entry. 

Lower 12 bits of IN 

Lower 12 bits of OUT = 

0001 (constant) 

Address of Control point 

Field length (in hundreds) needed 

Field length (FL) from CP-20. 

Address of control point 

Time Limit (TL) from JOB card (in tens) 

Field Length (FL) from JOB card (in hundreds) 

Reference Address (RA) 

Address of control point 



i bj package 
Elgin job 



READ REFERENCE ADDRESS AND FIELD LENGTH 
IS ERROR FLAG SET ? 



YES 



» RELEASE PPU 



NO 



IS PRIORITY ZERO ? 



YES 



REQUEST FNT CHANNEL 

SEARCH FNT FOR HIGHEST PRIORITY UNASSIGNED INPUT FILE 

IS THERE AN UNASSIGNED INPUT FILE ? 



YES 



NO 



I 



RELEASE FNT CHANNEL 
ENTER JOS NAME NEXT 
CONSOLE MESSAGE "IDLE 
ENTEH PP RECALL 
RELEASE PPU 



HAVE JOB CARDS SEEN LOADED ? 



NO 



Request monitor assign 3000 words of storage 



Clear contents of RA,ra+i,ra+2 

Enter buffer control words for INPUT file at RA+3 thru RA+7 



reouest monitor assign job priority 
Enter job name in control point area 
Change file type to assigned local file 
Change file name to input 
release fnt channel 



1 


NO 




Console message -waiting FOR STORAGE 
Enter pp recall 
release ppu 


was storage assigned ? 








YES 


\ 







V 



Call 2BP overlay 



Call 2RD overlay 



\/ 



update input file status 

read data from circular buffer to peripheral storage 

Copy data from peripheral storage to control point area 

set next statement locator in control point area to initial value 



CALL 2TJ OVERLAY 



Reouest monitor assign time limit 

Enter field length for job in 3rd byte of PPU input register 



V 



■5> Request monitor assign storage for job field length ' 



\ 


/ 


NO 




Console message- waiting FOR STORAGE 

ENTER PP RECALL 
RELEASE PPU 


Was storage assigned ? 








YES 


\ 







Issue joq card as oavfile message 
Release PPU 
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ROUTINE: 



1DJ - Phase 3 print 



PURPOSE: 



To monitor the processing of an OUTPUT file. 



GENERAL: DSD calls 1DJ to a control point to print a jobs' output. 
The package appears as "PRINT" and is loaded at dead start 
when "AUTO" is typed or whenever "X. PRINT" is typed. It 
remains in recall state and is available to print an 
OUTPUT file when one is released. 



METHOD: 



4000n words are requested from MTR. When memory has 
been allocated, a line printer is requested and the 
package is modified for the equipment parameters. 

The FNT is searched for an "OUTPUT" file and the 
message "IDLE" is displayed until such a file is found. 
When found, a "PRINT" entry is made in the dayfile and 
when the printer becomes ready, the file name is 
changed to the job name in FNT. At the control point 
the job name appears instead of "PRINT" and the console 
message is changed from "IDLE" to "PRINT". 

2RD is called to read from the disk to the circular 
buffer in central memory. The reading continues until 
the end of the file is encountered or until the central 
memory buffer will not hold another full sector. 

2LP is then called to print this information and will 
continue printing until there is no more data in the 
buffer to print. 

If an end-of-file has not yet been detected, control 
continues at step 3. When it is detected, the dayfile 
is searched for entries belonging to this job and then 
the entries are printed. Control reverts back to step 2. 



:dj package 
Phase 3 print 



READ fiEFCRENCE AGGRESS AND FiELD LENGTH FROM CONTROL POINT AREA 








" 








IS ERROR FLAG SET ? 


YES 


RELEASE PPU 










NO 
V 







Is Field length 4000B words ? 



*■ REQUEST MONITOR ASSIGN FIELD LENGTH OF 40C0B WORDS 



YES 



ENTER CIRCULAR ourfER ADDRESS (0003) IN PPU INPUT REGISTER 
Clear ra thru RA f 2 



console message - waiting for storage 
Enter pp recall 
release ppu 



IS LP EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTERS ? 



NO 



REQUEST MONITOR ASSIGN LP EOUIPMENT TO CONTROL POINT 
WAS EOUIPMENT ASSIGNED ? 



YES 



CONSOLE MESSAGE -NO LP AVAILABLE 
ENTER PP RECALL 
RELEASE PPU 



\ 




Enter equipment number in third byte of PPU input register 




/ 



-p" Modify package for equipment parameters 



©- 



Enter job name -print 
console message -idle 



_V_ 



REQUEST FNT channel 

SEARCH FNT FOR HIGHEST PRIORITY COMPLETED OUTPUT FILE 

IS THERE A COMPLETED OUTPUT FILE ? 



NO 



YES 



RELEASE FNT CHANNEL 

Enter PP recall 

RELEASE PPU 



\' 



ASSIGN FILE TO CONTROL POiNT AS LOCAL FILE 
ASSIGN FILE NAME AS JOB NAME 
RELEASE FNT CHANNEL 



DAYFILE MESSAGE- PRINT 





v 


/ 


NO 




RELEASE CHANNEL 








request channel for LP 

READ LP STATUS 
IS PRINTER READY ? 


_™ > 

NO 


CONSOLE MESSAGE -PRINTER NOT READY 

PAUSE FOR MONITOR 

READ RA 

16 ERROR FLAG SET ? 








YES 


RELEASE PPU 




















YES 






Clear carriage cqntr 


/ 
OLS 




SELECT CARRIAGE CONTROL LEVEL ONE 




RELEASE CHANNEL 




Clear pp time charges to control point 











V 

(NEXT PAGE) 
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tlDJ CONTINUED) 



A 



Enter CIRCULAR buffer control parameters 
Enter job name as file name 
Call 23P OVERLAY 



Call zrd overlay 



update file status in FST 
update circular buffer status 



Enter print as circular buffer file name 
Call 2BP overlay 



Enter LP equipment number in file status word 
Call 2LP overlay 



_V. 



update file status in FST 

UPDATE CIRCULAR BUFFER STATUS 
V/AS LAST REFERENCE A FILE MARK ? 



YES 



\ 


/ 


enter job name as file name 
Call 2DF overlay 


\ 


/ 



CniSET TEMPORARY STORAGE FOB READINO OAYFILE 
REQUEST MONITOR COMPLETE DAYFILE 















Call 2RD overlay 






\ 


' 






Call 2SD overlay 








\ 


' 






NO 


IS 0AYFILE AT END OF RECORD ? 










\ 


YES 

/ 




Enter print as circul 
Call 2BP overlay 


AR BUFFER FILE NAME 



v/ 



Call 2lP overlay 



UPOATE FILE STATUS IN FST 
UPDATE CIRCULAR BUFFER STATUS 



<*> 



1 A 



ROUTINE : 



1U 



Phase One Card Load 



PURPOSE: 



To build up an inp'ut file from the card reader onto the disk„ 



GENERAL: 1U is the "READ" package which is called in by DSD when 
"AUTO" is typed at dead start. When "READ" is assigned a 
control point, it remains in recall state and is available 
to read a job whenever the card reader becomes ready. 



METHOD: 



The job name READ is stored in CP(21). The error flag 
is checked and if an error is sensed, the PP is released. 
READ must be reassigned when it is needed again. 



2. If 4000_ words (FL) ha/e not been assigned, the routine 
requests the storage and puts itself into PP recall. 

3. A circular buffer address (0003) is entered into the PP 
input register and the first 3 words (RA— RA+2) are 
cleared. Any central program must have 3 words reserved 
for system communication so that means the circular 
buffer parameters are located at RA+3. 



4. 



5. 



FIRST = IN = OUT = 10 are the preset buffer parameters 

and LIMIT = 4000 o . 
o 

Upon entry the third byte of the input register may 
contain the equipment number of the card reader. If it 
does not, then MTR is asked for the assignment. The 
number will come back in the first byte of the message 
buffer and then is transferred to the third byte of the 
input register. 



6. If the assignment was not completed, "NO CR AVAILABLE" 
is stored in CP(30) and the PP put into recall. 

7. The above 6 steps are initialization procedures and are 
not repeated unless "READ" is dropped and must be 
reassigned. 

8. "READ" appears as the job name in the CP and "IDLE" as 
a console message when no reading is being done. 

9. The channel from the card reader entry in the equipment 
status table (EST) is requested and then the status of 
the card reader is checked. If the reader is not ready, 
the PP is put into recall and released. 

10. After the card reader is found to be ready, the file 
name "READ" and a buffer status of 10 R meaning requested 
coded read is entered into BA. 

11. 2BP is called to check the legality of the buffer 
parameters. 
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12. The equipment number of the card reader from the 
input register is stored in the FST entry. 

13. 2RC is then called to read one card. 

14. The FST entry is updated and stored as is the buffer 
status word (BA). Both reflect an 11- condition 
completed coded read. 

15. 2TJ is called to translate the job card. The job name 
is entered in PP(30) from 2TJ and is transferred to 
CP(21). Therefore, the control point assigned to READ 
has a new job name (from job card) and a console message 
of "READ" instead of "IDLE". A dayfile entry of the job 
name and READ is made. 

16. Next READ in BA is replaced with the job name and the 
buffer status is changed to request coded write (14„). 

17. Again 2BP is called to verify the buffer parameters. 
Every write operation on the disk is terminated with an 
EOF record so that if a file mark was requested it is 
not completed so that two file marks will not be written. 

18. 2WD is called to write the contents of the buffer of the 
disk. 

19. Upon reentry to 1LI, the FST entry and the buffer status 
(BA) is updated to reflect a completed coded write. 

20. The file name READ and buffer status of 10 fi - requested 
coded read - is again entered into BA. 

21. 2BP is called to determine the legality of the buffer 
parameters and the card reader equipment number is 
placed in the third byte of the input register for 2RC. 

22. After 2RC returns control to 1LJ, the FST and buffer 
status are updated to reflect a completed coded read. 

23. If a file mark was not read, then the job has not been 
completely read in. The contents of the buffer are 
written on the disk and more cards read until a 6-7-8-9 
card is found. 

24. When a file separator card is sensed, an MTR request (04) 
to update the PP running time at the control point for 
the requesting processor is issued. The time is con- 
verted to decimal and sent to the dayfile in the form 
PPXXXX sec. 

25. In order to release the job to the system the job name 
is stored in BA and 2BP is called for a final check of 
the buffer parameters. The disk file is rewound by 
setting the current track to the beginning track in the 



FST. Also the current sector byte is cleared and the 
last buffer status is set to 01. The priority is added 
to the FNT entry and the control point assignment byte 
is cleared. Therefore, the input file is released and 
ready for MTR to assign it a control point for execution, 

26. "READ" vith a 10 fi request is again entered into BA of 
the circular buffer and 2BP is called to check the 
parameters. An FST entry is cleared in preparation 
for a new file and a check is made for a ready card 
reader. 

27. If a card reader is not ready, the PP is put into recall 
so that it will be able to detect when the card reader 
becomes ready. 
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1LJ Routines 



1000 
1040 
1100 
1200 
1300 
1400 
1440 
1500 
1600 
1700 
1740 



Main Program 
Process Job 
Dump Buffer 
Release Job 
Record Time 
Call RPL Package 
Request CR 
Enter CP Status 
Sense CR Ready- 
Load Buffer 
Preset Buffer Parameters 



1500, 1440, 1600, 1040 

1700, 1400, 530, 1100, 1300, 1200 

1400 

1400 

4-760, 530 

2000 

22-760, 12-760, 100 

10-760, 12-760, 100, 1740 

740, 750, 12-760, 100 

1400 



Direct Core Cells 



1000 



1040 



1100 



1200 



P50-54 


Input register 


P70 


Constant 1 


P71 


Constant 180 


P72 


Constant 1000 


P75 


Input register address 


P10/14 


Zero word 


P20/24 


FST entry 


P74 


CP address 


P10/14 


CP(21) 


P20/24 


FST entry 


P40/44 


File control word (BA) 


P50/54 


Input register 


P55 


RA 


P57 


FST address 


P10/14 


CP(21), zero word 


P20/24 


FST entry 


P35 


Job priority 


P55 


RA 


P57 


FST address 


P74 


CP address 



20 



1300 



1400 



1440 



1500 



1600 



1700 



1740 



P10/14 


PP time - CP(24) 


P74 


CP address 


(A) 


Package name 


P01 


RPL ordinal 


P02/03 


Package name 


P10/14 


RPL entry 


P01 


Constant 2 


P10/14 


Message buffer 


P50/54 


Input register 


P74 


CP address 


P77 


Message buffer address 


P01 


Constant 3 


P10/14 


CP(20), zero word 


P54 


Constant 3 


P50/54 


Input register 


P55 


RA 


P56 


FL 


P74 


CP address 


P01 


CR status 


P10/14 


EST status 


P20/24 


EST entry 


P50/54 


Input register 


P74 


CP address 


P20/24 


FST entry 


P40/44 


File control word (BA) 


P50/54 


Input register 


P55 


RA 


P57 


FST address 


P10/14 


Zero 


P14 


10 n 




P54 


Constant 3 


P55 


RA 


P56 


FL 
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ilj package 

Phase one card loao 



Enter read as control point job name 
is error flag- set ? 



YES 



RELEASE PPU- 



NO 



READ RA AND FL FROM CONTROL POINT AREA 
IS FL ■ 40003 ? 



REQUEST MONITOR ASSIGN 4000B FIELD LENGTH 
CONSOLE MESSAGE -WAITING FOR STORAGE 
ENTER PP RECALL 
RELEASE PPU 



V 



ENTER CIRCULAR BUFFER ADDRESS (0003) IN PPU INPUT REGISTER 

f.LEAR RA THRU RA+2 

PRESET CIRCULAR BUFFER PARAMETERS 



15 EQUIPMENT NUMBER IN THIRD BYTE OF PPU INPUT REGISTER ? 



NO 



YES 



REQUEST MONITOR ASSIGN EQUIPMENT 
WAS EQUIPMENT ASSIGNED ? 



NO 



Yfc'S 



(A> 



ENTER READ AS CONTROL POINT JOB NAME 
CONSOLE MESSAGE-IDLE 



STORE EQUIPMENT NUMBER IN THIRD 
BYTE OF PPU INPUT REGISTER 



JL 



CONSOLE MESSAGE 
ENTER PP RECALL 
RELEASE PPU 



-NO CR AVAILABLE 



REQUEST CHANNEL FOR CARD READER 

READ STATUS 

RELEASE CHANNEL 

IS CARD READER READY ? 



NO 



ENTER PP RECALL 
RELEASE PPU 



YES 



ENTER FILE NAME READ IN CIRCULAR BUFFER 
CALL ZBP OVERLAY 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2RC OVERLAY 



_i 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 
CALL 2TJ OVERLAY 



ENTER JOB NAME IN CONTROL POINT AREA 
DAYFILE MESSAGE -READ 



\' 



ENTER JOB NAME IN CIRCULAR BUFFER AS FILE NAME 
CHANGE BUFFER STATUS FROM INPUT TO OUTPUT 
CALL 2BP OVERLAY 



V 



IS A FILE MARK REQUESTED ? 



YES 



NO 



CALL 2WD OVERLAY 
UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



B) (NEXT PAGE) 



(ILJ CONTINUED) 



® 



Enter file name read in circular buffer 
Call 2BP overlay 



Enter equipment number in file status word 
call 2rc overlay 



update file status 
update buffer status 
was a file mark read ? 



V 



NO 



*© 



YES 



REQUEST MONITOR ASSIGN PP TIME TO CONTROL POINT 
READ PP TIME AND CONVERT TO DECIMAL 
DAYFILE MESSAGE-PP XXXX SEC. 



ENTER JOB NAME IN BUFFER AS FILE NAME 
CALL 2BP OVERLAY 



M. 



REWIND FILE STATUS 

ADD JOS PRIORITY TO FILE NAME 

UPDATE FILE NAME AND STATUS IN FNT/FST 

RELEASE FILE AS COMPLETED INPUT FILE 



ENTER FILE NAME READ IN CIRCULAR BUFFER 
CALL 2BP 



V 



CLEAR FILE STATUS WORD TO NEW FILE IN FST 



& 
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ROUTINE : 



1LT Phase One Tape Load 



PURPOSE: To load jobs from a magnetic tape onto the disk until, an 
empty file is encountered. 



GENERAL: The package is called by DSD after the operator types 
"X.LOAD." at the console. The control point for the 
package is specified in the input register. 



METHOD: 1. Initialization of the routine involves the following 
steps : 

a. If the requested control point has a job name, the 
package is released. 

b. Otherwise, the job name LOAD is set in the CP(21) 
for display purposes. 

c. 10000 o words of central memory are requested to be 
used as a buffer for reading tape and writing disk. 

d. If MTR does not assign 10000„ words, thf package 
is released. 

e. Otherwise, the CM buffer is set up as follows: 

RA = RA+1 = RA+2 =f ' 

RA+3 =» File Name and Buffer Statu 

RA+4 = RA+5 = RA+6 =00 04 FIRST, IN, OUT 



RA+7 = : 00 



010000 LIMIT 



f. The buffer address, 0003, is stored in the PPU 
input register (internal) for future reference by 
the package. 

g. A tape assignment is requested of the operator by 
storing REQUEST TAPE in CP (30-37). 

h. A function 17 request is sent to MTR while waiting 
for the operator to assign the tape. This function 
is repeated until the tape is assigned. The equip- 
ment number specified by the operator is contained 
in CP(22). 

i. The equipment number is stored in PPU input register 
(internal) for future reference by the package. 

2. The following steps occur for the initialization of each 
file (job): 

a. RA+3 is (re) set as follows: 
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TAPE...... 10 in order to read the tape files. 

b. 2BP is called to verify the buffer parameters and 
to set up direct core parameters for 2RT. 

c. 2RT is called to read information from the tape and 
store it in buffer in central memory. 

d. The file status (LBS field) in FST is updated 
(odd value) to reflect the record(s) just read. 

e. The buffer status (at RA) is updated (odd value) 
to reflect the record(s) just read. 

f . If a file mark was read at this point, it would have 
been the second consecutive file mark and, therefore, 
the package (1LT) is released. 

g. Otherwise, 2TJ is called to set up the job name and 
priority in direct core cells. 

h. The job name is in the CP for display and dayfile 
accounting purposes. 

i. The message LOAD is sent to the dayfile. 

3. The following steps occur as a loop for loading the tape 
records onto the disk: 

a. The job name (from CP) is stored as file name before 
writing disk so that FNT contains the job name of 
type input. 

b. 2BP is called to set up direct core parameters for 
2WD, i.e., also assigns the new file. 

c. 2WD is called to write the bufferin central memory 
onto the disk, if a file mark was not requested. The 
file marks are automatically handled by 2WD on 
every write. 

d. Again, the FST word and the buffer status are updated 
to reflect the record(s) just written. 

e. The buffer is again loaded as specified before in 
steps 2) a., b., c, d. , e. 

4. When a file mark is encountered on the tape (and the 
record(s) are written on disk), the following steps are 
performed to release the disk file (job) just written. 

a. The job name is stored as the file name in order to 
call 2BP to set up direct core parameters for 
rewinding the file. 

b. The file (on disk) is rewound by making the following 
changes to FST. 
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i. setting current track=beginning track 

ii. setting current sector=0 

iii. setting last buffer status=0001 

c. The priority, from the job card, is entered into FNT. 

d. The file type is set to input. 

e. The file status is cleared from file TAPE by a call to 
2BP and resetting FST. 

NOTES: PPU time used to load the jobs on the disk is not charged to 
the individual jobs. 

The package 1LT is released without completing the tape to disk 
operation if any of the following conditions arise: 

1. too many control cards in a job. 

2. illegal parameters on the job card. 

3. no tracks are available on disk. 

4. the track limit (512 tracks) is exceeded for a job. 

5. the operator drops the CP. 

When the package (1LT) is released, either normally or prematurely, 
the files (tape and disk-FNT/FST), equipment (EST), and storage 
(CP(20)) are released by a special section of 1AJ. This section 
releases these items for control points not using the CPU but 
using CM for buffers. 1AJ detects this when a CP has a zero (0) 
priority. 1AJ is entered to release the package by the master 
loop in MTR. 

The dayfile message LOAD is written via MTR function 01 and 
resident routine located at 530 R . 

.Since the package is immediately released if 10000,, words are 
not available from MTR, the operator should call LOAD after dead 
start. Otherwise, he will have to wait for the CP's to be 
relatively inactive in order not to run into any storage conflicts. 

All overlays called by 1LT must be in RPL since PLD is not 
searched when calling the overlays. These overlays include 
2BP, 2RT, 2WD, 2TJ. 



1LT Load Tape Routines 



1000 

1100 
1160 
1240 
1300 
1400 
1400 



Main Program 

Dump Buffer 
Release Job 
Load Buffer 
Enter CP Status 
Call RPL Package 
Request Tape 



1300, 1440, 1240, 12-760, 1400, 530, 

1100, 1160 

1400 

1400 

1400 

10-760, 12-760 

17-760, 12-760 



Direct Core Cells 



P20/24 

P30/34 

P35 

P40/44 

P50/54 

P55 

P56 

P57 

P70 

P71 

P72 

P74 

P75 



FST entry for file sent to 2BP 

Job name from job card set up by 2TJ 

Priority from job card set up by 2TJ 

File Control Word+Buffer Status (same as RA+3) 

Input Register 

RA from CP(20) 

FL from CP(20) 

FST entry address set up by 2BP 

0001 (constant) 

0100 (constant) 

1000 (constant) 

Control point ; address 

Input register address 
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IL.T PACKAGE 

Phase cnE tape load 



Does control point have a job name ? 



YES 



NO 



V 



Enter control point name LOAD 

REQUEST MONITOR ASSIGN FIELD LENGTH OF IOOOO B 

READ RA AND FL 

DOES FLMOOOOB ? 



V 



NO 



» RELEASE PPU 



YES 



enter buffer address (0003) in ppu input register 
Clear ra thru ra + 2 
Enter buffer parameters 



CONSOLE MESSAGE -REQUEST TAPE 







PAUSE FOR 


MONITOR 


YES 








READ RA 

IS ERROR FLAG SET ? 


RELEASE PPU 


1 NO f 












\ 


NO 






HAS OHEKAT 


OR ASSIGNED 


AN EQUIPMENT 


NUMBER ? 





YES 



enter equipment number in third byte of ppu input register 
clear operator assignment in control point area 
Clear console message 



©" 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 
REQUEST HEAD STATUS 
CALL 2BP OVERLAY 



V 



Enter equipment numiilh in hle status word 
Call 2RT overlay 

UPDATE BUFFER STATUS 
UPDATE FILE STATUS 





\ 


' 




YES 








WAS A FILE MARK READ ? 


RELEASE PPU 1 




• 






\ 


NO 







CALL 2TJ OVERLAY 



ENTER NEW JOB NAME IN CONTROL POINT AREA 
DAYFILE MESSAGE-LOAD 



(NEXT PAGE) 
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(ILT CONTINUED) 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 

CALL 2BP OVERLAY 

IS A FILE MARK REOUESTEO ? 



YES 



NO 



CALL 2WD OVERLAY 



UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



V 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 
REQUEST READ STATUS 
CALL 2BP OVERLAY 



■V 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORB. 
CALL 2RT OVERLAY 
UPDATE BUFFER STATUS 
UPDATE FILE STATUS 



WAS A FILE MARK READ ? 



YES 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 
CALL EBP OVERLAY 



REWIND FILE STATUS 

ADO PRIORITY TO FILE NAME 

RELEASE FILE AS INPUT FILE 



V 



ENTER FILE NAME TAPE IN CIRCULAR BUFFER 

REQUEST READ STATUS 

CALL 2BP OVERLAY 

CLEAR FILE STATUS WORD TO NEW FILE 



& 
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ROUTINE: 



1TD 



Phase 3 Tape Dump 



PURPOSE: To dump completed output files on tape in order of priority 
for off-line printing. 



GENERAL: 1TD is assigned a PP and a control point when "X.DUMP." is 
typed. Whenever all output files are dumped, the package 
is released. 



METHOD: 



1. "DUMP" is assigned as the job name for the control 
point. lOOOOg words of central memory are required 
for the buffer and if it is not assigned, the PP is 
released. 



2. The message "REQUEST TAPE" appears as the third line 
of the control point. The operator must enter 

"X. ASSIGN YY.", where YY is a tape equipment number. 

3. The FNT is searched for the highest priority output 
file. 

4. The file is assigned to the control point as a local 
file and the job name from FNT is set into CP(21). 
The job name replaces "DUMP" at the control point and 
"DUMP" is displayed as the console message. 

5. The eentral memory buffer is filled by 2RD. 

6# 2WT is called and the tape equipment number is set in 
FST. If the tape assigned is V> a return jump is 
made to the BCD write coding in 2WT. A 1" tape assign- 
ment giver the binary write of 2WT control. 

7. When the buffer is emptied the FST and buffer status 
are updated. No file mark is written between jobs. 

8. Whenever the job output file has been dumped and a file 
mark requested, 2DF is called to drop the disk tracks 
used by the file. 

9. 2RD and 2'SD search the dayfile for entries pertaining to 
the job and they are written after the job output by 2WT. 

10. All PP time charges at the control point are cleared. 

11. Again FNT is searched for the highest priority output file. 
When no more output files exist, a file mark is written and 
then the tape is backspaced over it. The tape is left in 
this position so that more dumps may be added. 



Tfl _ 



ITD PACKAGE 

PHASE 3 TAPE DUMP 



V 



DOES CONTROL POINT HAVE A JOB NAME ? 



YES 



< 



NO 



RELEASE PPU 

K 



Enter job name- dump 

request monitor assign field length of 100003 

read ra and fl from control point 

has fielo length been assigned ? 



NO 



YES 



V_ 



enter circular buffer address (0003) in ppu input register 

clear ra thru' ra + 2 

Enter circular buffer parameters 



V 



CONSOLE MESSAGE -REQUEST TAPE 
PAUSE FOR MONITOR 
IS ERROR FLAG SET ? 



YES 



& RELEASE PPU 



NO 



READ RA FROM CONTROL POINT 

HAS OPERATOR ENTERED EQUIPMENT NUMBER ? 



V 



store equipment number in third byte, of ppu input register 
clear operator assignment in control point area 
Clear console message 
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jl 



REQUEST FNT CHANNEL 

SEARCH FNT FOR HIGHEST PRIORITY COMPLETED OUTPUT FILE 

IS THERE A COMPLETED OUTPUT FILE ? 



NO 



YES 



RELEASE FNT CHANNEL 

ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 

ENTER REBUEST FILE MARK STATUS 

CALL- 2BP OVERLAY 



V 



ASSIGN FILE TO CONTROL POINT AS A LOCAL FILE 
ASSIGN FILE NAME AS JOB NAME 
RELEASE FNT CHANNEL 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 
CALL 2WT OVERLAY 
WRITE FILE MARK 



DAYFILE MESSAGE- DUMP 



V 



0-* 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 
ENTER REQUEST CODED READ STATUS 
CALL 2BP OVERLAY 



UPDATE FILE STATUS 

UPDATE BUFFER STATUS 

ENTER REQUEST BACKSPACE STATUS 

Call 2BP overlay 



Call 2RD overlay 



V 



CALL 2BT OVERLAY 
UPDATE FILE STATUS 
UPDATE BUFFER STATUS 



UPDATE FILE STATUS 
UPOATE BUFFER STATUS 



RELEASE PPU 



(NEXT PAGE) 
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(ITD CONTINUEO) 



ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 
CALL 26P OVERLAY 



YES 



V 



ENTER EQUIPMENT NUMBER IN FILE STATUS WORD 

CALL 2WT OVERLAY 

IS A FILE MARK REQUESTED P 



NO 



V 



IS TAPE TYPE V/T ? 



YES 



NO 



RJ CODED WRITE IN 2WT OVERLAY 



UPDATE FILE STATUS 
UPOATE BUFFER STATUS 



V/AS A FILE MARK REQUESTED ? 



NO 



YES 



ENTER JOB NAME AS FILE NAME IN CIRCULAR BUFFER 

Call 2DF overlay 



PRESET TEMPORARY STORAGE FOR READINS DAYFILE 
REQUEST MONJTOR COMPLETE DAYFILE 



» CALL 2RD OVERLAY 



CALL 2SD OVERLAY 



NO 



V 



IS DAYFILE AT END OF RECORD ? 



YES 



ENTER TAPE AS FILE NAME IN CIRCULAR BUFFER 
CALL 2BP OVERLAY 



YES 



Enter equipment number in file status word 

call 2wt overlay 

is a file mark requested ? 



NO 



V 



IS TAPE TYPE WT ? 



YES 



NO 



V 



RJ CODED WRITE IN 2WT OVERLAY 



UPOATE FILE STATUS 
UPDATE BUFFER STATUS 



CLEAR PP TIME CHARGES IN CONTROL POINT AREA 



n 



» RJ BINARY WRITE IN 2WT OVERLAY 



<A) 



» RJ BINARY WRITE IN 2WT OVERLAY 
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PROGRAM: 



2BP 



Read Buffer Parameter 



PURPOSE: To examine the buffer arguments for correctness, enter 
file name in FNT, and reserve the file. 



GENERAL: This routine is called by LAjJ, IB J, 1DJ, 1U, 1LT, 1TD, 
CIO to check the buffer arguments for range and validity. 
It also enters file name in the FNT, reserves the file 
if possible. The following error messages are produced: 
BUFFER ARG ERROR, and FNT LIMIT. 



METHOD: 1. Read buffer status and arguments. 

2. Move the arguments to a two word/entry table at P60. 

3. Check for argument region out of field limit range. 
If in error, display in day file - BUFFER ARG ERROR, 
issue a FC of 13B (abort CP), and exit to PP monitor 
loop. 

4. Check for LIMIT over field limit and go to the error 
procedure if it is. 

5. Check for OUT? LIMIT. 

6. Check for IN* LIMIT. 

7. Check for OUT < FIRST. 

8. Check for IN >• FIRST. 

9. Check each character of file name to first blank for 
less than 37. If an error is detected, go through same 
error procedure as above. Also senses inserted characters 
after the first blank as errors. Finally, it checks 

to make certain file name is non-blank. 

10. Searches FNT for the file name and matching CP number. 
On a find, it saves FST entry address. 

11. If the file was not found in FNT, it locks out other 
PP's from the FNT. A blank entry is found and the name 
is entered with its CP, file set as local, and priority 
of zero. A blank entry is written into FST. Channel 

15 is released thereby allowing other PP's into FNT, and 
FST address is saved. 

12. Request channel 14 (FST lock out channel). Check LBS 
field of FST for file reserved (even number - reserved). 
If it is not reserved, reserve it (set FST odd), release 
channel 14 and exit. 

13. If it is reserved, release channel 14, and issue a 17B 
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function to allow the monitor to move central storage. 

14. Read CP status. Save reference address. If error flag 
is not set, go back to No. 12 above and continue. If 
flag is set, release PP(12B) and exit to resident PP 
program. 
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2BP Routines 



2000 
2100 
2150 
2300 
2350 



Main Program 
Alter File Status 
Search FNT 
Verify File Name 
Verify Argument Values 



2350, 2300, 2150, 2100 

14-740, 14-750, 17-760, 12-760, 100 

15-740, 15-750, 530, 13-760, 100 

530, 13-760, 100 

530, 13-760, 100 



Direct Core Cells 



2000 



2100 



2150 



2300 



2350 



P50/54 

P40/44 

P01 

P02 

P60/70 

P10/14 

P57 

P20/24 

P45 

P40/44 

P74 

P10/14 

P55 

P20/24 

P10/14 

P40/44 

P51 

P57 

P01 

P40/44 

P53/54 

P56 

P60/61 

P62/63 

P64/65 

P66/67 



Input register (Buffer address) 

Status 

Counter for buffer parameters 

Address for storing buffer arguments 

Buffer arguments (FIRST, IN, OUT, LIMIT) 

Temporary storage for buffer arguments 

File status address 

File status 

Last buffer status from FST 

Buffer status 

Control Point address 

CP status 

Reference address 

FNT address and limit 

FNT entry 

Buffer status (Name of file) 

Input register (CP for file) 

File status address 

Address of file name 

Buffer status (file name) 

Argument address 

Field length 

FIRST 

IN 

OUT 

LIMIT 
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Enter 2BP overlay 



read buffer status 
Read buffer arguments 



Is ARGUMENT region in range ? 



IS LIMIT OVER FIELD LENGTH ? 



YES 



IS OUT EQUAL OR GREATER THAN LIMIT f> 



IS IN EQUAL OR GREATER THAN LIMIT ? 



YES 



IS OUT LESS THAN FlRST ? 



IS IN LESS THAN FIRST ? 



YES 



IS FILE NAME IN VALID FORMAT ? 



OAYFILE MESSAGE-BUFFER ARG ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



® 



IS FILE NAME IN FILE NAME TABLE (FNT) ? 



NO 



YES 




REQUEST CHANNEL IS 






IS THERE A BLANK ENTRY IN FNT ? 






1 


NO 






RELEASE CHANNEL 15 
DAYFILE MESSAGE-FNT LIMIT. 
ABORT CONTROL POINT 
RELEASE PPU 












ENTER NAME IN FNT AND ENTER 








RELEASE CHANN 


EL 15 





REQUEST CHANNEL 14 
IS FILE RE5ERVE0 ? 



RESERVE FILE. 
RELEASE CHANNEL 



RELEASE CHANNEL 14 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET f 



¥ 



YES 



RELEASE PPU 
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ROUTINE : 



2BT: - BACKSPACE TAPE 



PURPOSE : 



To backspace a block of small binary or BCD data on tape and set 
buffer addresses accordingly. 



GENERAL: 



The 2BT routine is called in once the backspace request and tape 
unit request has been determined. 2BT is called from the CIO 
monitor routine. 



METHOD: 



A. BINARY 

1. If a binary backspace is requested, two blocks are back- 
spaced and then the last one backspaced is read. 

2. This block is checked for a short block; if it is short, 
IN and OUT are set equal to FIRST. 

3. If it is not short, the backing of two blocks and reading 
of one is continued until a short block is found. 

B. BCD 

1. If a binary backspace is not requested, a check is made to 
see if tape type is WT. 

2. If it is not, i.e., tape type is MT, one block is backed 
and IN and OUT set equeal to FIRST and then exit. This 
will backspace the one BCD block. 

3. If the tape type is WT, a transfer is made to location 2401 
(BACKSPACE CODED). A first reference flag is set and a 
value called D = IN-OUT is calculated. 

4. One block is backed and then read into a PP buffer. If the 
block is a file mark, backspace back over it, set IN=OUT= 
FIRST and EXIT. 

5. Otherwise, the block length is compared to D. If less than 
D, reduce D by the block length, back over the block just 
read, and continue the back and a read a block loop with 
the new value of D. 

6. If the block length is greater than D, OUT is set equal to 
FIRST+BLOCK LENGTH - D and IN set equal to FIRST+BLOCK LENGTH, 
the last block read is then stored into the buffer beginn- 
ing at FIRST. The action just taken means the first block .. 
backed over which is small enough to fit in the buffer is 
stored into the buffer. 

7. A check is then made to see if 0UT=FIRST. If yes, the loop 
of calculating D and backspacing is done again. This hap- 
pens when the first D calculated was zero, i.e., IN=OUT, 
and the record backspaced and read was a four byte record. 
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8. If OUT does not equal FIRST, the first reference flag is 
checked. If it is set, it is cleared set OUT=OUT-l and 
OUT is checked against FIRST. If OUT=FIRST, a one word 
block was read and the compute D loop is done again. 

9. Once the first reference flag is cleared, a check is made 
to see if the contents of (OUT-1) contains a blank lowest 
byte. If not, set 0UT=0UT-1 and recheck if OUT=FIRST. 

10. If (OUT-1) has a blank lowest byte, IN and OUT are set, 
and EXIT taken. 

11. All of this action causes OUT to be backspaced down the 
buffer one coded card image. 

12. It should be understood that the tape will be backspaced 
but a read is not needed to get the backspaced record into 
the buffer. 
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Backspace tape 



VCO:FY OVERLY FOR EGU.PUENT PARAMETERS' 



-=<J SET Fll 



RST RLrERENCE FLAG 







YES 


. 






_ 














NO 


| NO 






V 


/ 




1 IS TAPE UNIT TYPE WT f> 






Back one DlOCk 






| NO 






V 






1 
DACK ONE BlOCK ] 


READ C.\£ BlOCK 




i 
J, 


<•/ 


set circular buffer in -out "First 


Is block a short block ? 










YES 












V 







SET CIRCULAR BUFFER IN » OUT "FIRST 



(aV 



-=n Compute D = in - GUT 



—^ DACK ONE b^OCK 



REAu ONE bi-OCK 



iS DLOCK a file wahk ? 



SET circular buffer IN = OUT = FIRST 
Exit 



V 



IS BLOCK LENGTH GhEATER THAN D ? 



NO 



set out = First ■*■ block length - d 

set in "first * block length 

Stose block in circular buffer beginning at First 



Reduce D by block length 



"n 



DOES OUT ■ FIRST 



~\ YES 



-0 



BACK'ONE Bi.OCK 



J IS FIRST REFE3cr.CE FLAG SET ? 



r^ 


Art FLAG 


V' 


OUT 


= OuT - 1 



NO 



DOES (OUT - I) CONTAIN A BLANK LOWEST BYTE ? "^ 



YES 



UPDATE CIRCULAR BUFFER IN AND OUT ADDRESSES 
EKlT 
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L.!" 



j IS TAPE PGSiT.GNED 


AT BEGINNING 
TAPE ' 


YES 




set circular buffer 
Exit from overlay 


IN -OUT- FIRST 


OF F.R5T bi-CCK GN 







i_ 



REDjCE B..GCK COUNT 

HECUEST CHANNEL FOR TAPE UNiT 

READ TAPE STATUS 

14 TAPE HEADY ? 



YES 



Backspace tape 



RELEASE ChANNEL 
PAUSE FOB MONITOR 
HEAD HA 
IS EHrtOH FLAG SET ? 

j no 



CONSOLE MESSAGE - TAPE XX NOT REAOY 

REUASE CHANNEL 

PAUSE FOR WON. TOR 

REAO RA 

IS ERROR FLAG SET ? 



YES 



->! REi 



LEASE PPU 



NO 



V 



REQUEST ChANNEL FOR TAPE UNIT 
READ TAPE STATUS 
15 TAPE READY ? 



-> RELEASE PPU 



23T SUBHOUT.NE 
HEAD ONE Bt-OCK 



I RECUEST ChANNLL FOR TAPE UNIT 
j REAO TAPE STATUS 



IS TAPE READY 



YES 



CCMGuE MESSAGE - TAPE XX NOT READY 


YES 










RELEASE 


PPU 


PAUSE FD3 MONITOR 

READ RA 

IS ERROR FLAG SET ? 











READ TAPE 

IS PARITY CHECK OK ? 





YES 


J. | NO 




RECuEST CHANNEL FOR TAPE UNlT 
READ TAPE STATUS 
IS TAPE READY ? 


NO 







YES 



Release Channel 
advance block count 

EXIT 



->U; 



iS A FiLc h\~rtti. READ ? 







release channel 
advance block count 
Exit 


~ 1 YqS 


J 





hAS "DlOCK BEEN READ 3 TIMES ? 



NO 



H Backspace tape 



DAYFILE MESSAGE - TAPE XX PARITY ERROR 
RELEASE CHANNEL 
ABORT CONTROL POINT 
RELEASE PPU 
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ROUTINE: 



2EF 



Process Error Flag 



PURPOSE: To determine type of error and set up to execute the group 
of control cards after the EXIT, statement if one exits. 



GENERAL: 2EF is called by the Advance Job routine (1AJ) when the 
error flag is sensed set (non-zero). 



METHOD: 



1. Read the control point status word from CP(20). 
Clears the error flag and stores status back to CP(20). 

2. Uses the error flag to pick up address of error message. 
(Error Flag 1- Time Limit, 2- Arithmetic Error, 5- PP 
Call Error, 6- Operator Drop, 7- Track Limit) 

3. Dayfile message routine is called to enter error message 
if the error condition was one of the above. 

4. Control statements are searched untilthe last one is 
read or an EXIT, statement is encountered. The state- 
ment address at CP(21) is set to point to either the 
end of the statement list or the statement after the 
EXIT. card. 
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2EF Routines 

2000 Main Program 2030, 2100, 531 

2030 Error Table 

2100 Search for Exit 



Direct Core Cells 



2000 



2100 



P74 


CP address 


P10/14 


CP status 


P01 


Error Flag 


P74 


CP address 


P20/24 


Next statement addres 


P10/14 


CP status 



42 



2-r GvEhtAY I 

PRGCESS EnRCS FLAG I 



CLEAfi ESHGR FlAG AT ThE CGNTKG. POINT 



IS A TIME LI.V..T ..'.DiCATlG ? 



AYrlLE I.1E53AGE-T!NiC 



IS AH AB<ITn>r,i_TiC tBBGR iNG.CATcG ? 



->, OAYFluE McSiAGE-AfilTh. EFIROR. 



Ij A fVu CA„i_ ^Bf.G.-' ii.GCATEG ? 



■ ?■> ca,_l rasos. h 



, NO 



-p* rtEAO i.^a'T Cl.'.TBC 



IS ST»Ti;..JI,T A „_„.,.; ? 



IG ST».t;,.;e«T ax clX.T ? 



AOVA.NCE TO NEXT CONTROL i.TATE,«EN7 I 
EXIT ! 



OAYr".L.t ..i^Sb^-GC — CPilriAi OH ORG?. 



—i^ C*AYFii_t MUS^AOc — Tn'AC.\ L1M1" 
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ROUTINE : 



2LP -- PRINT 



PURPOSE: 



To transfer data from the circular buffer to the line printer. 



GENERAL: 2LP is called by the CIO Write Function routine once the file 
type has been determined to be a line printer. 



METHOD: 1. A check is made for data left in the buffer. If there 
is none and the end-of-record was requested, IN and OUT 
are set equal to first, and EXIT is taken. 

2. If there is data., a word is read up and copied into the 
print line buffer. If the lowest byte of the word is 
not zero and 120 characters have not been assembled, 
another word is fetched. 

3. If either a zero byte is found or 120 characters have 
been assembled, a transfer is made to location 2150 
(PRINT LINE). This subroutine finds an available 
printer and prints the line. 

4. Three characters are checked in the first character 
position for carriage control: 

(0) - advance paper one extra line after printing. 

(1) - advance to top of form after printing line. 

(+) - print the last line but do not advance the paper. 

5. If there is a 7X code in column one, the last line is 
printed, and then printer carriage control X is selected. 

6. If none of the above mentioned codes are in column one, 
the line is printed and the paper advanced. 

7. 2LP then returns to its beginning routine to check if any 
data is left in the buffer. 



Enter zip overlap 

PR, NT 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



J.L 



IS THERE OATA IN THE CIRCULAR BUFFER ? 



YES 



READ ONE WORD FROM CIRCULAR BUFFER 

ADVANCE OUT ADDRESS 

COPY WORD TO PRINT LINE BUFFER 

IS LOWEST ORDER BYTE ZERO f 



NO 



HAVE 130 CHARACTERS BEEN ASSEMBLED ? 



YES 



REQUEST CHANNEL FOR PRINTER <r 



NO 



YES 



»■ IS AN END RECORD REQUESTED ? 



YES 



SET BUFFER PARAMETERS IN • OUT -FIRST 



» EXIT 





READ PHINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 


YES 
















RELEASE PPU 




































! NO 

V 








REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 


NO 




CONSOLE MESSAGE-PRINTER NOT READY 












YES 









Clear console message 

is there a zero in column one ? 



YES 



(NEXT PAGE) 



> PRINT LAST LINE AND ADVANCE PAPER 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS EHROR FLAG SET ? 



NO 



REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



YES 



Clear console message 
advance paper one line 



CONVERT CHARACTERS IN PRINT LINE BUFFER 
TO PRINTER CODE AND OUTPUT TO PRINTER 
RELEASE CHANNEL 
UPDATE CIRCULAR BUFFER OUT ADDRESS 



* RELEASE PPU 



» CONSOLE MESSAOE-PRINTER NOT READY 
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(2lP continued) 



<?> 



Is there, a 



E. A ONE IN COLUMN ONE ? 



YES 



PRINT LAST LINE AND ADVANCE PAPER 



READ PRINTER STATUS 
RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



YES 



> RELEASE PPU 



NO 



REOUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 



NO 



» CONSOLE MESSAGE-PRINTER NOT READY 



YES 



Clear console message 
page space paper 



CONVERT CHARACTERS IN PRINT LINE BUFFER 
TO PRINTER CODE ANO OUTPUT TO PRINTER 
RELEASE CHANNEL 
UPDATE CIRCULAR BUFFER OUT ADDRESS 



|5 THEHE A + IN COLUMN ONE ? 



PRINT LAST LINE ANO DO NOT ADVANCE PAPER 



<b 



(NEXT PAGE) 









YES 














RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 




RELEASE PPU 




































\ 


NO 








REQUEST CHANNEL FOR PRINTER 


NO 




CONSOLE MESSAGE-PRINTER NOT READY 























V 



Clear console message 

conveht characters in print line buffer 

to printer code and output to printer 

release channel 

update circular buffer out address 
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(2LP continued) 



© 



IS THERE A 7X CODE IN COLUMN ONE ? 



PRINT LAST LINE AND ADVANCE PAPER 



PRINT LAST LINE AND ADVANCE PAPER 





READ PRINTER STATUS 
RELEASE CHANNEL 










PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 


YES 


RELEASE PPU 














\ 


NO 








REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 


YES 












\ 


NO 










CONSOLE MESSAGE - 










PRINTER N 


OT READY 





















RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 


YES 


RELEASE PPU 




























\ 


WO 










REQUEST CHANNEL FOR PRINTER 
IS PRINTER READY ? 


NO 


CONSOLE MESSAGE- 
PRINTER NOT READY 






V 


YES 

/ 















SELECT PRINTER CARRIAGE CHANNEL X 



Clear console message 

Convert characters in print line buffer 

to printer code and output to printer 

Release channel 

update circular buffer out address 



& 
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ROUTINE : 



2PC 



Punch Cards 



PURPOSE: 



To punch either binary or Hollerith cards, 



GENERAL: 2PC is called by the CIO Write Function routine once the 
file type has been determined to be a card punch. 



METHOD: 



1. A check is made for a request to punch Hollerith. A 
return jump is made to either PUNCH BINARY or PUNCH 
BCD. 

A. PUNCH BINARY 

1. If there is enough data for a full card, the 
punch buffer is cleared for 15 words. 

a) The data is transferred to the punch buffer.. 

b) The card length is set in column one. 

c) The checksum set in column two. 

d) The card count is advanced. 

e) The card count is entered in column 80. 

2. A channel is then requested, with a "PUNCH NOT 
READY" message displayed if needed. If the 
punch is ready, a card is punched, the channel 
released, OUT is updated, and a check for the 
error flag in RA is made. 

3. If an error exists, the PPU is released. 

4. If there is no error, a check is again made to 
see if there is enough data for a full card. If 
there is not enough data for a full card and an 
end-of-record is selected, the partial card will 
be punched. 

5. If there is no data, a 7-8-9 card is punched, 
and IN and OUT are set equal to FIRST. 

B . PUNCH SSW3H' WC£> 

1. The punch buffer is cleared for 80 characters. 

2. If there is at least one word left in the buffer, 
the word is converted into 10 Hollerith characters. 

3. A check is always made to see if 80 characters 
have been assembled. If not, a check for a 
lowest order byte of zero is made. If it is not 
present, another word is assembled. 



4. If either 80 characters have been assembled 
or a zero byte is found, the card is punched. 

5. The error flag is then checked in RA and the PP 
is released if an error exists. If there is 

no error, OUT is updated, the card count advanced, 
and a return is ma.de to convert another 80 characters, 

6. If there is not another full word in the buffer 
and a file mark is requested;. 

a) The card count is cleared. 

b) A 6-7-8-9 card is punched. 

c) IN and OUT set equal to FIRST, and 

d) An EXIT taken. 

7. If an end-of -record is requested, 

a) A 7-8-9 card is punched. 

b) The card count is cleared. 

c) IN and OUT set equal to FIRST, and 

d) EXIT taken. 
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ENTER 2PC OVERLAY 
PUNCH CARDS 



MOOiFV OVERLAY FOR EQUIPMENT PARAMETERS 



I 



IS The CIRCULAR BUFFER IN A WRITE' COOED MODE ? \ 



I YES 



J*L 



-=«1 Clear punch buffeh for 80 characters 



Jil- 



ls THERE ANOTHER WORD IN THE CIRCULAR BUFFER ? 



YES 



CONVEHT WORD INTO 10 HOLLERITH CHARACTERS 
HAVE 60 CHARACTERS BEEN ASSEMbLEO ? 



WAS LOWEST ORDER BYTE OF WORD ZERO ? 



YES 



Clear console message 
request channel for punch 
Punch one card 
release channel 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



NO 



*(3) (NE 



^ IS A FILE MARK REQUESTED ? 



NO 



IS AN END RECORD REQUESTED ? 



YES 



NO 



EXIT 



Clear card count 
Punch 67B9 card 

SET BUFFER PARAMETERS 

IN = OUT = FIRST 

EXIT 



Clear cahd count 

Punch 789 caro 

Set buffer parameters 

IN'OUT'FIRST 

Exit 



A A 


NO 






YES 






HUQuEGT CHANNEL FOR PUNCH 
READ PUNCH STATUS 
RELEASE CHANNEL 
IS PUNCH READY ? 


console message -punch not ready 

Pause for monitor 

READ RA 

IS ERROR FLAG SET ? 




NO 


RELEASE PPU 













*■ RELEASE PPU 



UPDATE BUFFER OUT ADDRESS 
ADVANCE CARD COUNT 



(2PC OVERLAY CONTINUED) 



IS THE CIRCULAR BUFFER IN A WRITE BINARY MODE ? 



set buffer parameters in "out "first 
Exit 



* IS THERE ENOUGH DATA FOR A FULL CARD ? 









>J< 




NO 




Is 


AN 


END 


RECORO RE0UE5TED 


f> 


- 1 " 




L 










YES 







IS A FILE MARK REQUESTED ? 



IS THERE DATA IN THE BUFFER ? 



V 




Punch 769 CARD 


1 


SET BUFFER PARAMETERS 


iN'OUT'FIRST 


Clear card count 




Exit 





Punch 


6769 


CARD 










SET BUFFER 


PARAME 


TERS 


IN 


■OUT 


■ FIRST 


Clear 


CARD 


COUNT 










Exit 















Clear Punch buFFER FOR 15 WORDS 

transfer data to punch buffer 

Enter card length in column one 

Enter sum of data bytes modulo <t0S5 in column two 

advance card count 

Enter card count in column 60 



I 



REQUEST CHANNEL FOR PUNCH 
READ PUNCH STATUS 
RELEASE CHANNEL 
IS PUNCH READY ? 



| Console message -punch not ready 
^ Pause for monitor 
N0 read ra 

Is error Flag set ? 



S» release PPU 



! YES 



clear console message 
Request channel for punch 
Punch one card 
release channel 



NO 


UPDATE BUFFER OUT ADDRESS 

PAUSE FOR MONITOR 

REAO RA 

IS ERROR Fi_AG SET ? 


YES 






RELEASE PPU 
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ROUTINE: 



2RC - Read Cards 



PURPOSE: To read cards from the card reader and process them either 
as binary or BCD cards. 



GENERAL: 



2RC is called by the CIO Read Function routine once the file 
type has been determined to be a card reader. 



METHOD: 



1. If the End-of-Job flag is set, 2RC clears the flag, sets 
the file mark and exits. 

2. A check is made to see if the buffer has room for 15 words 

of input. If not, an EXIT is taken and no read is performed. 

3. A return jump is taken to READ NEXT CARD which requests the 
correct channel, makes sure the reader is ready, and reads 
the next card. 

4. Once a card is read, the card count is advanced in the FST 
entry and a check is made for 7-8-9 punches in column one. 
If there are only 7-9 punches, a transfer is made to 
PROCESS BINARY CARD. If neither condition exists, PROCESS 
HOLLERITH CARD is given control. 

5. After the card is- processed, the IN address of the central 
memory buffer is incremented by the number of words read. 

6. Another card is then read if the buffer length allows it 
and there are no errors. 

7. If a 7-8-9 card was found, an end-of-record indicator is 
set and the card count is cleared. An EXIT is then made. 

8. If a 6-7-8-9 card was found: 

a) and the last record was not complete, the End-of-Job flag 
is set along with End-of-record. The next time through 
2RC, the EOJ flag will be cleared and a file mark will be 
written. 

b) and the last record was complete, the file mark indicator 
is set if the buffer is empty. 

c) and the last record was complete, the EOJ flag and End-of- 
record indicator are set if the buffer is not empty. 

A. PROCESS BINARY CARD 



1. The number of significant columns is determined from the 
word count in column one. 

2. If there is a correction punch in column one, the significant 

words are copied into the circular buffer, IN is advanced 
and an EXIT taken. 



3, Otherwise, the checksum is cleared and the column index is 
set to 2. Each significant column is then added to the 

.checksum module 4095. If the checksum is zero, the signi- 
ficant words are copied into the buffer and IN is advanced. 

4, If the checksum is not zero, a binary card error is displayed, 
After a 4 second delay, a check is made to see if the card 
reader is ready. If it is not, then the operator is given 

a chance to reread the card. 

5o If the reader is ready, a check of the error flag in RA is 
made. If the error flag is not set, then the binary card 
error is displayed again. 

B. PROCESS HOLLERITH CARD 

1. The last significant column is determined. 

2. A table look-up is then done on each character to change the 
Hollerith character into display code. The significant 
characters are stored in the buffer by advancing IN. 

3. If the last word's last byte has significant data, a cleared 
word is stored after it. If not, the last byte will be 
cleared. 
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Enter erc overlay 



,1, 
V 


YES 




CLEAR END OF JOB FLAG 

SET FILE MARK 

EXIT 


j [S END OF JOB FLAG SET ? 






1 NO 



M001FY OVERLAY FOR EQUIPMENT 
PARAMETERS 



' V 




NO 






DOES BUFFER HAVE ROOM FOR 


15 




EXIT 













HLOuEST CHANNEL FOR CARD READER 
HEAD EOUlPMENT STATUS. 
IS CARD READER REAOY ? 



read one card 

release channel 

advance card count in file status 

is 789 punched in column one ? 

["no [ 



IS 79 PUNCHED IN COLUMN ONE 7 



YES 



PROCESS HOLLERITH. CARD 



UPDATE IN ADDRESS IN CENTRAL STORAGE 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



RELEASE CHANNEL 

CONSOLE MESSAGE-READER NOT REAOY 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



NO 



REQUEST CHANNEL 
READ EOUlPMENT STATUS 
IS CARD READER READY ? 



YES 



Clear console message 



t» IS S7B9 PUNCHED IN COLUMN ONE ? 



PROCESS BINARY CARD 



YES 



Was last record complete ? 



-=»J RELEASE PPU 



IS BUFFER EMPTY ? 



JL- 



SET END OF JOB FLAO K- 



set end of record 
Clear card count 
Exit 



set file mark 
Clear card count 

EXIT 
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2RC PROCESS Binary card 



DETERMINE NUMBER OF SIGNIFICANT 
COLUMNS FROM WORD COUNT IN COLUMN ONE 



IS THERE A CORRECTION PUNCH IN COLUMN ONE j> 



■ NO 



Clear check sum 

Set column index to column 2 



\i 



add column to check SUM MODULO 4095 ■& 



Advance column index 

Was this the last significant column ? 



YES 



IS CHECK SUM ZERO ? 



YES 



NO 



COPY SIGNIFICANT WORDS TO CIRCULAR BUFFER 
AOVANCE CIRCULAR BUFFER IN A00RES9 BY 
V/ORO COUNT 



COI.SOLE MESSAGE - BINARY CARD ERROR 

OELAY 4 SECONDS 

REOUEST CHANNEL FOR CARD READER 

READ STATUS 

RELEASE CHANNEL 

IS CARD READER READY ? 



YES 



NO 



PAUSE FOR MONITOR 

READER RA 

IS ERROR FLAG SET p 



YES 



RELEASE PPU 



■H This path provides an opportunity for the operator to reread the faulty card 
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2PC PROCESS nO^uERiTH CABD 






•J 




CENSE TRAILING SPACES AND DETERMINE 
LAST SIGNIFICANT COLUMN 




i 




SET COLUMN INDEX TO FiRST COLUMN 



<?> 



IS THIS FIHST CHARACTER IN BYTE f 



NO 



YES 



Ci-EAR WORD BUFFER 



SET BYTE INDEX TO FIRST BYTE 



CLEAH CHARACTER BUFFER . 

I T*"- 



V- 



TABLE LOOKUP FOR DISPLAY CODE 

STORE CHARACTER IN UPPER HALF OF BYTE 

ADVANCE COLUMN INDEX 

WAS THIS THE LAST SIGNIFICANT COLUMN ? 



YES 



—5-1 Is ROW 12 PUNCHED ? | 



I r 



ADD 60B TO CHARACTER 



IS ROW II PUNCHED ? 



ADD 108 TO CHARACTER 



IS ROW PUNChEO ? 



YES 



ADD 20B TO CHARACTER 



STORE WORD IN CIRCULAR BUFFER 
-&\ ADVANCE CIRCULAR BUFFER IN ADDRESS 

DID THIS WORD HAVE DATA IN LAST BYTE ? 



YES 



__Y 



STORE CLEARED WORD IN CIRCULAR BUFFER 
ADVANCE CIRCULAR BUFFER IN ADDRESS 



J*" 



YES 



TABLE LOOKUP FOR DISPLAY CODE 

ADD CHARACTER IN LOWER HALF OF BYTE 

ADVANCE COLUMN INDEX 

WAS THIS THE LAST SIGNIFICANT COLUMN ? 



NO 



NO 



Advance byte index 

Was this the last byte in woro ? 



YES 



V 



store word in circular buffer. 
Clear word buffer 
set byte index to first byte 
advance circular buffer in address 



IS ROW I PUNCHED ? 



"*L 



ADD I TO CHARACTER 



NO 



1 YES ^, 

15 ROW 2 PUNCHED ? > 



ADO 2 TO CHARACTER 



NO 



± 



YES 



IS ROW 3 PUNCHED ? i > ADD 3 TO CHARACTER 



IS ROW 4 PUNCHED ? 



YES 



S» ADO A TO CHARACTER 



•5= IS ROW 8 PUNCHED ? 



YES 



$rt ADD IOB TO CHARACTER 



NO 



NO 



IS ROW 5 PUNCHED ? 



-n 



AOD 5 TO ChARACTER 



IS ROW 6 PUNCHED ? 



•> AOD 6 TO CHARACTER 



IS ROW 7 PUNCHED ? 



YES 



ADD 7 TO CHARACTER 



NO 



IS HOW 6 HUNCHED ? 



< 



AOD IOB TO CHARACTER 



IS ROW 9 PUNCHEO ? 



YES 

> ADD MB TO CHARACTER 



IS ROW 5 PUNCHED ? 



YES. 



ADO II B TO CHARACTER 



& 
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ROUTINE: 2RT -- Read Tape 



PURPOSE: To read binary and BCD data from magnetic tape or rewind 
the tape. 



GENERAL: This package is called by the CIO Read Function when a 
magnetic tape is to be read. Control is transferred by 
CIO to one of three locations within 2RT: 

a) READ BINARY TAPE 



b) READ BCD TAPE 

c) REWIND 



METHOD: 



A. READ BINARY TAPE 



1. There must be room in the buffer for a full block 
(lOOOg words) of data or no reading is done. 

2. The requested tape unit status is checked. If it 
is not ready, the message "TAPE XX NOT READY" is 
sent to the control point display and no further 
processing is done until the tape is ready or an 
error flag is set. 

3. One block of data is read in odd parity. If the 
length is less than 4 bytes (signifying noise) it 
is ignored and another record is read. 

4. If an end-of-file was encountered, the buffer status 
is changed to reflect it and an EXIT is made. 

5. When a parity error is encountered, the tape is 
backspaced one block and reread. The message 
"TAPE XX PARITY ERROR" is sent if the parity error 
still exists after 3 attempts. A pause bit is set 
in RA and is cleared only after "X.GO." is typed 
in answer to the display message. 

6. When the pause bit is cleared, the bad data is 
stored in the buffer and a new block is read. 

7. The data is read until an end-of-record or end- 
of-file is sensed. 

B. READ BCD TAPE 

1. The requested tape unit status is checked. If it 
is not ready, the message "TAPE XX NOT READY" is 
sent to the control point display and no further 
processing is done until the tape is ready or an 
error flag is set. 
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2. One block of data is read in even parity. If an 
end-of-file was encountered, the buffer status is 
changed to reflect it and an EXIT is made. If the 
length is less than 6 bytes (signifying noise), it 
is ignored and another record is read. 

3. If a parity error is sensed, the tape is backspaced 
one block and reread. The message "TAPE XX PARITY 
ERROR" is sent if the parity error persists after 

3 attempts. A pause bit is set in RA and is cleared 
only after "X.GO." is typed in answer to the display 
message. 

4. When the pause bit is cleared, the normal processing 
continues. 

5. The number of significant BCD characters is deter- 
mined and trailing spaces are suppressed by a zero 
byte. 

6. The BCD characters are converted to display code by 
a table look-up. A blank (55„) is substituted for 
an illegal character. 

7. The data is copied into the central memory circular 
buffer until a zero byte is found. 

8. Only one record (120 characters) is read and then 
an EXIT is made. 

C. REWIND /UNLOAD 

1. The tape is checked for ready status and if an 
unload was requested the tape is rewound and then 
unloaded. 

2. If only a rewind was requested, the tape is rewound. 

3. The block count in the FST entry is cleared and an 
EXIT is taken. 



NOTES: 1. Noise records in binary is a block less than 4 bytes and 
in BCD less than 6 bytes. 

2. BCD characters which do not have a legal display code 
counterpart become blanks (55,,). 
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Enter 2rt overlay 
Binary tape read 



Modify overlay for 
equipment parameters 



IS THERE ROOM IN THE CIRCULAR 
BUFFER FOR A FULL BLOCK OF DATA ? 



-»| EXIT "J 



YES 



REQUEST CHANNEL FOR TAPE UNIT 



READ TAPE STATUS 
IS TAPE READY ? 



CLEAR CONSOLE MESSAGE 

READ ONE BLOCK OF TAPE (ODD PARITY] 

IS LENGTH AN ODD FRACTION OF WORD ? 



YES 



IS LENGTH LESS THAN 4 BYTES ? 



NO 



READ TAPE STATUS 
WAS FILE MARK READ 7 



IS PARITY CHECK OK ? 



YES 



NO 



HAS BLOCK BEEN READ 3 TIMES ? 



BACKSPACE TAPE ONE BLOCK 



® 



STORE DATA IN CIHCULAH BUFFER 
UPDATE BUFFER IN ADDRESS 
WAS BLOCK A SHORT BLOCK ? 



YES 



CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ. RA 

IS ERROR FLAG SET ? 



set file mark 
advance block count 
release channel 
Exit 



ADVANCE SLOCK COUNT 
RELEASE CHANNEL 



h*® 



DAYFILE MESSAGE - 
TAPE XX PARITY ERROR 
RELEASE CHANNEL 
SET PAUSE BIT IN (RA) 



PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



NO 



YES 



RELEASE PPU 



SET END OF RECORD 
EXIT 



^ 



RELEASE PPL! 



YES 



> HAS PAUSE BIT BEEN CLEARED IN (RA) ? 



NO 
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£> 



Enter 2ht overlay 
bcd tape read 



MODIFY OVERLAY FOR 
EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR TAPE UNIT 



NO 



READ TAPE STATUS 
IS TAPE UNIT HEADY ? 



CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



RELEASE PPU 



clear console message 

Read one tape block (even parityi 

was a file mark read ? 



NO 



set file mark 
advance block count 
release channel 
Exit 



WAS BLOCK LENGTH LESS THAN 6 BYTES ? 



NO 



Was parity check ok p 



3- Has block been read 3 times p 



backspace tape one block 



& 



DAYFILE MESSAGE -TAPE XX PARITY ERROR 
RELEASE channel 
Set pause bit in Ira] 



determine number uf 
significant characters in 
data eliminating trailing spaces 



HAS PAUSE BIT BEEN CLEARED IN (RA) p 1*- 



Pause for monitor 

Read ra 

is error flag set ? 



Convert characters to display 
code by table lookup 



YES 



Release ppu 



Copy data into circular buffer 
to a blank lowest byte 



UPOATE BUFFER IN ADDRESS 
ADVANCE BLOCK COUNT 
RELEASE CHANNLL 
EXIT 
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LN1EH 2HT OVERLAY 
REWIND TAPE 



Modify overlay for 
equipment parameters 



HEOUEST CHANNEL FOH TAPE UNIT 



HEAD TAPE UNIT STATUS 
IS TAPE UNIT HEADY ? 



NO 



IS UNLOAD REQUESTED ? 



NO 



s/_ 



REWINO REWIND UNLOAD 



release channel 
Clear block count 
Exit 



NO 



CONSOLC MESSAGE-TAPE XX NOT ready 

RELEASE CHANNEL 
PAUSE FOR MONITOR 
READ RA 
IS ERROR FLAG SET ? 



■> RELEASE PPU 
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ROUTINE : 



2TJ -- Translate Job Card 



PURPOSE: To check the parameters on the job card for errors and 
assemble the values for use by other routines. 



GENERAL: 2TJ is called by IB J, 1LJ, or 1LT. The job card is read 
from the control card buffer located in the control point 
area. Upper entry to 2TJ, the buffer parameters are 
passed through the PP's direct core cells. All job card 
parameters except the job name are converted from display 
code to binary. 



METHOD: 



1. If the circular buffer contains more than 95 words or 
190 characters, the PP is released with a dayfile 
diagnostic - "TOO MANY CONTROL CARDS". 

2. Otherwise., the job name is assembled in left-justified 
display code with trailing spaces. The job name may 
not be blank or begin with a number. 

3. The priori Ly is extracted and converted to binary. 
Only the lowest 4 bits are stored for the job priority. 

4. The time limit is extracted and converted to binary. 

The lowest order 5 octal digits are rounded to the nearest 

10 o seconds and stored for the time limit, 
o 

5. The field length is extracted and converted to binary. 

The lowest order 17 bits are rounded up to the nearest 

100„ words, 
o 

6. The. PPU time charges for the CP area are cleared in 
order to assign future PP activity to the job. 

7. A dayfile message - JOB CARD ERROR - is caused by: 

a) Job name exceeding 7 characters or not beginning 
with an alphabetic character. 

b) Priority exceeding 7 characters. 

c) Time limit exceeding 7 characters. 

d) Field length exceeding 7 characters. 

8. If any parameter is blank, a corresponding value is 
inserted. 

a) priority - 1 

b) time limit - 10 seconds 

o 

c) field length - 40000 g words 
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NOTES: 1. The routine READ NEXT CHARACTER reads one central memory 
word (10 characters) whenever the character string is 
depleted. 

2. The parameters for the control statement buffer used 
by 2TJ, P60-65, are set by the circular buffer I/O 
routines. 

3. 2TJ and the calling routine 1BJ, 1LJ, or 1LT are released 
and control reverts to the idle loop if one of the 
following conditions occur: 

a) Too many control cards - more than 190 characters 
in all control cards, excluding trailing blanks. 
About 40 cards can be used and this error usually 
occurs when a record separator (7-8-9 card) has 
been omitted. 

b) If the job name field is blank or absent. 

c) If the first character of the job name field is riot 
an alphabetic character. 
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2TJ Routines 



Location Routine Calls 

2000 Main Program 2100, 2200, 2300, 2340 

2100 Assemble Argument 2140 

2140 Read Next Character 

2200 Decimal Conversion 531, 12-760 

2300 Assemble Name 2100 

2340 Clear PP Time 04-760 



Entry 



Direct Core Cells 



P60/61 


FIRST 


P62/63 


IN 


P64/65 


OUT 


P55 


RA 


Exit 





P30/34 Job Name 

P35 Priority 

P36 Time Limit (Rounded to Tens) 

P37 Field Length (Rounded to Hundreds) 
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27,/ OVER..AY | 

TRANSlA'E .03 NAME i 



Y 


YES 




DAYFILE MESSAGE -TOO MANY CONTROL CARDS 
RELEASE PPU 


ARE THERE MORE TH4N 55 WOH05 -S T*£ CIRCULAR BUFFER ? 















READ FIRST CONTHGL CARD 



Assemble alphanumeric word to separator | YES 

DOES WORD EXCEED 7 CHARACTERS ? ■ l 



IS FIRST CHARACTER A LETTER ? 



YES 



DAYFILE MESSAGE -JOB CARD ERROR 
RELEASE PPU 



STORE WORD AS NAME OF JOG | 



WAS SEPARATOR A BLANK ? 



SET 


priority I 






SET 


TIME 


LIMIT 


ONE 


MINUTE 


SET 


FIELO 


LENGTH 


40000 


Exit 











assemble next alphanumeric woro to separator 
Does word exceed 7 charactehs ? 


YES 




DAYFILE MESSAGE -JOB CARD ERROR 
RELEASE PPU 







Convert octal characters to binary 
Are lowest order 4 sits zero ? 



STORE LOWEST ORDER 4 QITS AS PRIORITY 



Was separator a blank ? 




SET 


PRIORITY 1 






SET 


TIME 


LIMIT 


ONE MINUTE 


SET 


FIELD 


LENGTH 


40000 


Exit 











set time limit one minute 
set field length 40000 
Exit 



V 


YES 








assemble next alphanumeric v.'cro to separator 
Does word exceed 7 characters ' 




DAYFILE MESSAGE 
RELEASE PPU 


-JOB CARD ERROR 







Convert octal characters to uinary 
Round up last octal digit 

STORE LOWEST ORDER 5 OCTAt DIGITS AS T.ME liMiT 



IS TIME LIMIT ZEHO ? 



WAS SEPARATOR A U..ANK ? 



¥\ SET TIME LIMIT ONE MINUTE 



SET FIELD LENGTH 40000 



AS5EM0LE NEXT ALPHANUMERIC VluRD TO SEPARATOR I YES 
DOES WORD EXCEED 7 CHARACTERS ? I 



DAYFILE MESSAGE - JOB CARD ERROR 
Release PPU 



CONVERT OCTAL CHARACTEHS TO u.NAHY 

ROUND UP LAST TWO OCTAL DIGITS 

STORE LOWEST OHDEH 17 BITS AS FcELD LENGTH 



.1. 



IS FIELO LENGTH ZERO ? 



I NO 









; 








Clear 
Exit 


PPU 


TIME 


CHARGES 


TO 


CONTROL 


POINT 



SET FIELO LENGTH 40000 
EXIT 
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ROUTINE: 2TS -- Translate Control Statement 



PURPOSE: To examine each statement in the control card buffer of the 
control point area and initiate the execution. 



GENERAL: 



METHOD : 



This package is called by 1AJ which was in turn called by 
MTR to advance the job status at a control point. Each 
time a control statement is initiated the PP is released 
and MTR must then reload 1AJ. This process continues until 
a blank entry in the control card buffer is encountered and 
1AJ can continue subsequent processing. 

1. If the next control statement is blank, all control 
cards have been processed so an EXIT is made to 1AJ. 

2. ASSIGN 

a) No separator is required between ASSIGN and equip- 
ment type. 

b) If either field is incorrect, an error flag of 3 
is set in the control point area and an EXIT made. 
A "CONTROL CARD ERROR" message is sent to the day- 
file and the next time 1AJ is called the PP will 
be aborted. 

c) The file name from the card is stored and a request 
is made of MTR for the octal code that the equip- 
ment type designates. If a mnemonic, i.e., WT, CR, 
etc., instead of octal digits, i.e., 51, 42, etc., 
was specified, a console message "WAITING FOR XX" 
will appear. 

d) The file name is assigned an FNT entry with local 
type status. The equipment type is set into the 
FST entry. 

e) The control statement buffer address is advanced so 
that the next statement will be processed when 1AJ 
is reloaded. 

f) A dayfile message noting the equipment assignment 
(XX ASSIGNED) is sent and the PP released. 

3 . COMMON 

a) If the file name exceeds 7 characters, a control 
card error exit is made. 

b) The FNT is searched for a file name identical to the 
one on the card. It must be assigned to the calling 
control point. 

c) If the found file is not on the disk, MTR is requested 
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to assign the proper equipment. If the request is 
not fulfilled, a console message "WAITING FOR XX" 
is sent and the PP released. 

d) If there is no file assigned to the control point 
with the proper name, a. console message "WAITING FOR 
COMMON FILE" is sent and the PP is released. 

e) A file with the correct name and control point assign- 
ment is. given common status and then the PP is released . 

RELEASE 

a) The FNT is searched for a common file with assign- 
ment to the requesting control point and a name 
identical to the control card. If one is found, 
the common type is changed to local so that when 
this job is logged off the file will be erased. 

b) A dayfile message "RELEASE XXXX" is sent even if 
the file was not found. 

c) A common file may be released by a job but still used 
by it because the file is not lost until the job is 
terminated.' 



4. EXIT 

a) If this control card is the next to be executed an 
exit is made from this overlay. 

b) 1AJ checks the error flags before any control is 
given to 2TS. If such a flag is set, 2EF is called 
to read the rest of the control cards in the buffer 
and position the buffer parameters to the statement 
after an EXIT card, if one is found, or to a blank 
word, if no EXIT card was issued. 

c) If no errors have thus far been encountered and an 
EXIT card found, 2TS will exit and 1AJ will finish 
the rest of its processing. 

d) An EXIT card will cause job termination when encount- 
ered if no errors exist in the job. 

5 . REQUEST 

a) If an equipment has not been assigned by the operator 
the message "REQUEST XXXX" is sent. 

b) When the operator does make the assignment, the octal 
digits will appear in CP(22). This byte is cleared 
and a blank entry in the FNT is searched for. 

c) The requested file will be given an FNT entry with 
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local type and the equipment number will be set 
in the FST. 1 

d) A dayfile message "(XX ASSIGNED)" is sent and the 
PP released. 

6. MODE 

a) The octal digit is assembled and MTR is requested 
to assign the corresponding exit mode. 

b) A dayfile message "MODE X" is sent and the PP 
released. 

c) MTR will change the exit mode in the exchange 
package for the control point. 

7 . SWITCH 

a) FNT search 

1) The FNT is searched for a file with the name 
identical to the one on the card and assigned 
to the control point. If none is found, the 
library is searched. 

2) The file must be on disk 0. 

3) The file is then read into central memory 
beginning at RA until an end-of -record or field 
length is reached. 

4) The exchange area is cleared and P is then set 
to the number of arguments + 3 and FL is put 
into AO. 

5) The sense switches already set in the control 
point are passed to RA. and RA+1 is cleared. 

6) The parameters on the control card are assembled 
and replace their corresponding entry in the 
argument area. Blank parameters will cause the 
original value to remain. A period or closing 
parenthesis must terminate the parameters. 

7) If the RSS (read next control statement but stop 
before execution) flag is set, the card is sent 
to the dayfile and the PP is released. 

8) Otherwise, the central processor is requested of 
MTR to begin execution of the newly loaded program 
and the statement is sent to the dayfile. 

b) CLD search 

1) Each entry in CID is searched for the file name 
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and if it is found it is read into central 
memory beginning at RA until an end-of-record 
or field length is reached. 

2) The program is read in from the disk in the same 
manner as described by (4) above. 

c) PLD search 

1) If the file name is not found in FNT or CLD, 
PLD must contain it or an error results. 

2) If the name does not begin with a letter, an 
error message is sent to the dayfile. 

3) Parameters may appear in the call. If they do, 
then the first one is assembled into bits 

18-35 and the second into bits 0-17 of PP recall 
register. If only one parameter is needed, it 
resides in the lowest 18 bits of the register. 
The call is assembled in the PP recall register 
at the control point so that when MTR senses this 
request, the package will be assigned to a free 
PP. 

4) The statement address is advanced to the next 
statement and the PP is released. 
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2TS Routines 



2000 
2040 
2100 
2170 
2200 
2240 
2300 

2400 
2460 
2500 
2600 
2660 
3000 
3100 
3150 

3200 
3300 
3360 
3400 
3460 
3540 
3640 
3700 
3740 



Main Program 

Message for ASSIGN 

Unpack Next Statement 

EXIT 

Search for Special Format 

Assemble Name 

ASSIGN 

REQUEST 

MODE 

Assign File 

RELEASE 

COMMON 

Issue Exit 

Error Exit 

Enter Arguments in 

Program 



2100, 2200, 3200, 3300, 3540, 3100 



3100 

2240, 22-760, 3360, 12-760, 2500, 

2040, 3100, 3000 

2240, 2500, 2040, 12-760, 3000 

2240, 25-760, 3000 

740, 750, 23-760, 12-760 

2240, 3000 

2240, 740, 750, 3740, 12-760, 3000 

01-760, 530, 12-760 

3000 



2240 

Search for Assigned File 2240, 3400, 3460, 3150, 15-760, 3000 
Search CLD 
Console Message 



Read Program 

Clear Exchange Area 

Search PLD 

SWITCH 

Assemble Data 

Assign Equipment 



2240, 3400, 3460, 3150, 15-760, 3000 
740, 700, 400, 750 



2240, 3700, 3000 
2240, 3000 

22-760, 3360, 750, 12-760 
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] 2TS OVERLAY | 

| TRANSLATE CONTROL STATEMENT ! 



READ NEXT CONTROL STATEMENT 
IS STATtMENT A BLANK ? 



YES 



| NO 



_ii 



IS FiSST WORD ASSIGN ? 



"1 YES 



NO 



V 

NEXT PAGE 



ASSEMBLE NEXT ALPHANUMERIC WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 



IS WORD A BLANK ? 



| 
V 



NO 



I STORE WORD A3 EGU.P.'.'.ENT TYPE DESIGNATIO 




mSSEMui-E NEXT ALPHANUMERIC WORD TO SEPARATOR 
COES WORD EXCEED 7 ChARACTERS ? 



| NO 



' IS WORD A E..ANK ? 




STORE WORD AS Fi_E NAME 

REQUEST MOMTC.t ASSIGN ECUIPMENT TYPE DESIGNATED 

WAS AN EQUIPMENT ASSICNE j ? 



v-GNjCE .MESSAGE -WAITING FOR XX 
RElEA:.E PPo 



Clear o?,_ra 



AUSIC'.JD ^CUiRMENT No 



1^1 



ncC^LL. r., CHANNEL \Q 

IS THE.tL A E.LAN* ENTRY IN FNT ? ! 



| YES 

.1, 



Enter fnt w,Tn named lOca^ File 




RELEASE CHANNEL 




ENTER EC.P.MENT NulvfuER IN KILE STA 


TUS WORO 


SET Flt-E STATUS TO NEW r><_Z 





RELEASE CHANNEL 

REQUEST MONITOR RELEASE EQUIPMENT 
CONSOLE MESSAGE-WAIT FNT SPACE 
RELEASE PPU 



IS'SuE STATEMENT TO DAYFlLE 
ADVANCE STATEMENT AGDnESS 



OAYf.LE MESSAGE - (XX ASSIGNED) 



RELEASE PPu 
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12TS CONTlNEO) 



15 FiRST WORD COV.MON ? 



YES 



i, 






ASSEMBLE NEXT ALPHANUMERIC WORD 
GOES WORD EXCEED 7 CHARACTERS ? 


TO SEPARATOR 


YES , 


>( 



| NO 




hLuuLjST fnt channel 

SEARCH FNT FOR ASSEMBLED NAME 

IS THERE AN AVAILABLE COMMON FILE IN FNT WITH THIS NAME ? 



YES 



NO 



IS TnERE A FILE A^diGNtO TO Th;S 
CONTROL PGlNT W.TH THIS NAME ? 



RELEA5E FNT ChANNEL 




CONSOLE MESSAGE- WAITING 


FOR COMMON FiLE 


RELEASE FPU 





-sr Is f.rst wo.-.'O r;lEASC ? 



NO 



YES 



( NEXT PAGE ) 



-5»1 IS FILE A D.SK FILE ? 



YES 



NO 



V 



REQUEST MONITOR ASSIGN 
EQUIPMENT TO CONTROL POINT 
WAS EQUIPMENT ASSIGNED ? 



YES 



NO 



CONSOLE 


MESS 


AGE- WAITING 


FOR 


XX 


RELEASE 


FNT 


CHANNEL 






RELEASE 


PPU 









ASS.GN FIlE TO CONTROL 
PO.NT IN COMMON STATUS 
RELEASE F.NT CHANNEL 



ISSUE STATEMENT 


TO 


OAYFILE 


ADVANCE 


STATEMENT 


ADDRESS 


RELEASE 


PPU 







j ASSEMDLE NEXT ALPHANUMERIC WORO TO SEPARATOR Y£S 
DOES WORD EXCEED 7 CHARACTERS ? 




ERROR EXIT 



\y 



SEARCH FNT FOR A COMMON FILE ASS.CNED 
TO THIS CONTROL POINT WITH THIS NAME 
IS THERE SUCH A FluE ? 



YES 



Change file status to local file 



ISSUE STATEMENT TO OAYF...E 
ADVANCE STATEMENT ADDRESS 
RELEASE PPU 
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( 2TS CONTINUED i 



First WORD EXIT f 



I NO 



-=>■ EXIT FROM OVERLAY 



Is FIRST WORD REQUEST ? 



YES . I ASSEM3LE NEXT ALPHANUMERIC WORD TO SEPARATOR 

I COES WORD EXCEED 7 CHARACTERS ? 



NO 




-I hAS G=*EHAT0R ASSIGNED AN EOUIPME.-.T ? 



YES 



Clear operator ass.gnment 

request fnt channel 

Is there a blank entry in the fnt ? 



! NO 



YES 



RELEASE FNT ChANNEL 
REQUEST MONITOR RELEASE EQUIPMENT 
CONSOLE MESSAGE -WAIT FNT SPACE 
RELEASE PPU 



D.SPlAY STATEMENT A3 CONSOLE MESSAGE 
RELEASE PPJ 



Enter assemsuED name as local file in FNT 
Enter equipment number in file status word 
set file status to new file 
release fnt channel 





ISSUE STATEMENT TO OAYFILE 
ADVANCE STATEMENT ADDRESS 






\ 


/ 




DAYFILE MESSAGE-iXX ASSIGNED) 
RELEASE PPU 



IS F,RST WORO MODE ? 



ASSEMuuC NEXT ALPhANU.»L'i1,C WORD TO SEPARATOR 
DOES WORD EXCEED 7 CHARACTERS ? 



YES 




->( ERROR EXIT 



IS FIRST WORD SWITCH ? 



NO 
(NEXT PAGE] 



REQUEST MONITOR ASSIGN EXIT MODE 
AS INDICATED DY ASSEi.'d^ED DIGIT 



ISSL 


E STATEI-E.NT 


TO 


DAYF 


1 
LE | 


ADV 


«NCE 


STATEMc 


NT 


ADDR 


:ss 


SEl 


:ase 


PPJ 









~! YES ,. I ASSci-iDLE NEXT ALPHANUMERIC WORO TO SEPARATOR I YES 



DOES WORD EXCEED 7 CHARACTERS ? 



NO 







, 1 NO 




: 1 " 




j YES 

| 


ScT SENSE! SWlTCn iN (RA) AS IN3.CATED 




\l 






Issue statement to oayf.le 
advance statement- address 
release ppu 












Error Exit 
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(2TS CGNT.NuEO) 



SCAHCn r.NT FOR AN ASSIGNED FILE WHOSE 
SAME AGREES WITH TnE FIRST WORD i 

is THERE such a file assigned to This 

CONTROL POINT ? 



YES 



~pn 0CE3 



i.S FILE HAVE AN ASSIGNED EQUIPMENT ? 



NO 



YES 



NO 



_V_ 



REOUEST CHANNEL ZERO 

POSITION DISK TO FIRST SECTOR OF FILE 

READ FILE INTO CENTRAL STORAGE BEGINNING AT RA 

UNTIL END OF RECORD OR FIELD LENGTH IS REACHEO 

RELEASE CHANNEL 



0- 



Clear exchange area for control point 

set program address to lowest 6 bits of (ra + i) + 3 

store fielo length in ao 



T 



SET RA 1-2 AS NEXT ARGUMENT ADDRESS 

Clear ;ra) and (ra + I) 



■n 



IS THE NEXT CHARACTER IN ThE CONTROL STATEMENT 

A PERIOD OR A CLOSED PARENTHESIS ? I 



NO 



ASSEMBLE NEXT ALPHANUMERIC WORO TO SEPARATOR 
DCES WORD EXCEED 7 CHARACTERS ? 




STORE WORD IN NEXT ARGUMENT POSITION LEFT JUSTIFIED 
ADVANCE ARGUMENT ADDRESS 



-jr 



IS RSS FLAG SET IN PPU INPUT REGISTER ? 



YES ' 



NO 



REOUEST CENTRAL PROCESSOR TO BEGIN EXECUTION PROGRAM 



V 



Issue statement to dayfile 
advance statement address 
release ppu 



SEARCH CLD FOR A PROGRAM WnOSE 
n'amE AGREES WITH ThE FIRST WORO 
IS THERE SUCH A PROGRAM ? 



YES 



NO 

(NEXT PAGE) 



REQUEST CHANNEL ZERO 

POSITION DISK TO FIRST SECTOR OF PROGRAM 

READ PROGRAM INTO CENTRAL STORAGE BEGINNING AT RA 

UNTIL END OF RECORD OR FIELD LENGTH IS REACHEO 

RELEASE CHANNEL 



12TS CONTINUED) 



SEARCH PLD FOR A PERIPHERAL PACKAGE 
WHOSE NAME AGREES WITH THE FIRST WORD 

is there such a package ? 



YES 



Does the package name begin with a letter ? 



NO 



NO 




M 



ISSUE STATEMENT TO DAYFILE 

DayfilE MESSAGE - CONTROL CARD ERROR 

set error flag 

Advance statement address 

release ppu 



I YES 



NO I A3SE.. uuE OCTAL DIGITS TO SEPARATOH 
IS SEPARATOR A COMMA ? 



YES 



Enter assemdled number in pp recall 
register bit positions 18 thru 35 





V 


j Assemble octal digits to separator 




\ 


/ 




Enter assembled number in lowest 




18 bits of PP re 


:all register 



V 



Enter package name and control 
point number in PP recall register 
Issue statement to dayfile 
Advance statement address 
Release ppu 
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ROUTINE: 



2WT -- Write Tape 



PURPOSE: 



To write both binary and BCD blocks of data on magnetic tape. 



GENERAL: Once a write code is detected in the request parameter, a 
call is made to the CIO Write Function routine which then 
checks the equipment type of the file. When a file type of 
tape is determined, a call is made to load 2WT. When the 
mode of binary or BCD is determined, the appropriate trans- 
fer is made by CIO. 



METHOD: 



A. BINARY WRITE 



1. The circular buffer is checked to determine if there 
is a full block of data. If there is not, and an 
end-of-record function is not requested, execution 
returns to the CIO Write Function routine. 

2. If end-of-record is requested, the last partial 
record will be written. 

3. A transfer is made to subroutine Write Binary Tape 
in 2WT to actually write the block. A check is made 
for tape ready. If the tape is not ready, a message 
is displayed and a pause is executed waiting for 
tape to be made ready or the error flag set in RA. 

4. Once tape is ready, the data is written and a parity 
check is made. If there is parity, a message is 
displayed, the tape is backspaced, and rewritten 
until either the parity does not exist or the error 
flag has been set in RA by monitor. 

5. If a good write is performed, the OUT address of the 
buffer is then updated. If a short block was 
written meaning end-of -buffer, IN and OUT are set 
equal to FIRST and EXIT is taken to CIO Write Function. 

6. If the buffer is not empty, more data is written 
until a short record is encountered. 

B. BCD WRITE 

1. If the request is a BCD write request, a jump is 
made from CIO Write Function to the subroutine WRITE 
BCD TAPE at location 2640. 

2. A check is made to see if there is data in the buffer. 
If there is none, and the end-of-record is requested, 
IN and OUT are set equal FIRST. If end-of-record is 
not requested, an EXIT is taken.. 
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NOTES: 



3. If the buffer is not empty, one word at a time is read 
from the buffer and it is converted from display code 
•to BCD advancing OUT as each word is read. Whenever 
the last byte of a word is zero, the line is padded 
with spaces up to 120 characters. 

4. When a full line of data is made up, a jump to 3001 
is taken (WRITE CODED RECORD) to write the record. 
The same write and parity checking operation is done 
here as in the binary write. 

5. When a good write is completed the block count is 
advanced, the channel released, and more data is 
written until the buffer is empty. 

C WRITE FILE MARK 

1. If a file mark is requested, a jump is taken from 
CIO Write Function to WRITE FILE MARK. 

2. This routine simply finds the tape, makes sure it is 
ready, writes a file mark, advances the block count, 
and releases the channel. 



1. An end-or-record write must be issued to empty a buffer 
which does not contain a full block of data. 

2. Binary tape records has a maximum size of 1000 central 
memory words . ° 

3. BCD tape records are all 120 characters (one print line), 
Each record is padded with spaces to maintain the proper 
size. 
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Enter 2WT overlay 

WHITE BINARY TAPE 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



is there enough data in the 
circular buffer for a full block ? 



YES 



I ' I NO 
-> IS AN END RECORD FUNCTION REQUESTED ? 

YES 



REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ■> 



< 

NO 



NO 
— > 



YES 



CONSOLE MESSAGE-TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



> RELEASE PPU 



NO 













YES 




Write data on tape 
read tape status 
is parity check ok ? 


NO 


RELEASE CHANNEL 
SET PAUSE BIT IN (RA) 
























\ 


YES 








\ 


/ 




ADVANCE BLOCK COUNT 






dayfile message-tape xx write parity error 
Pause for monitor 

READ RA 

IS ERROR FLAG SET ? 






RELEASE CHANNEL 








RELEASE PPU 


UPDATE BUFFER OUT ADDRESS 
WAS BLOCK A SHORT BLOCK ? 














\ 


YES 
/ 








\ 


NO 






SET BUFFER IN'OUT"FIRST 




NO 


HAS PAUSE BIT BEEN CLEARED IN (RA) ? 












EXIT 






YES 












\ 


/ 










REQUEST CHANNEL FOR TAPE UNIT 
















BA 


-KSPACE TAPE 


ONE BLOCK 
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ENTEH 2WT OVERLAY 

White BCD tape 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



V 



■> IS THERE DATA IN THE CIRCULAR BUFFER f 



IS AN ENO RECORD REQUESTED ? 



YES 



SET BUFFER IN'OUT'FIRST 



YES 



READ ONE WORD FROM CIRCULAR DUFFER 

Convert display code to BCD code by table lookup 

Advance buffer out address 

is last byte of buffer word zero f 



YES 



PAD LINE WITH SPACES TO 120 CHARACTERS 



NO 



NO 



HAVE 120 CHARACTERS BEEN CONVERTED f 



YES 



REQUEST CHANNEL FOR TAPE UNIT 
REAO TAPE STATUS 
IS TAPE READY J 



<e — 

NO 



YES 



CONSOLE MESSAGE - TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



RELEASE PPU 



Clear console message 

Write one block I even parity ) 

READ TAPE STATUS 
IS PARITY CHECK OK ? 



YES 



ADVANCE BLOCK COUNT 

RELEASE CHANNEL 

UPDATE BUFFER OUT AODRESS 



RELEASE CHANNEL 

SET PAUSE BIT IN (RA) 



V 



DAYFILE MESSAGE- TAPE XX WRITE PARITY ERROR 

PAUSE FOR MONITOR 

REAO RA 

IS ERROR FLAG SET ? 



YES 



RELEASE PPU 



NO 



NO 



HAS PAUSE BIT BEEN CLEARED IN (RA) ? 
YES 



REQUEST CHANNEL FOR TAPE UNIT 
BACKSPACE TAPE ONE BLOCK 
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ENTEH 2WT OVERLAY 
WRITE FILE MARK 



MODIFY OVERLAY FOR EQUIPMENT PARAMETERS 



REQUEST CHANNEL FOR TAPE UNIT 
READ TAPE STATUS 
IS TAPE READY ? 



NO 



YES 



Clear console messase 
write file mark 
advance block count 
release channel 



=» 

NO 



CONSOLE MESSAGE- TAPE XX NOT READY 

RELEASE CHANNEL 

PAUSE FOR MONITOR 

READ RA 

IS ERROR FLAG SET ? 



YES 



^ RELEASE PPU 



EXIT 
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ALPHABETIC PERIPHERAL PACKAGES 



INTRODUCTION 



The packages described on the following pages may be called by a 
central program. They are loaded into a peripheral processor from 
either RPL (resident peripheral library) or PLD (peripheral library 
directory). A central program, by setting the package name in left- 
justified display code in RA+1, requests MTR to assign the package to 
a free PP. Each package begins execution at location 1000 in the PP 
and arguments are passed to it from the central program through the 
lower portion of RA+1. If the execution of the package is terminated 
normally or abnormally the PP is released and must be reassigned when 
it is needed again. 

The last section of this narrative gives a few practical examples 
about the use of some of the routines. 



ROUTINE : 



DMP -- Storage Dump 



PURPOSE: To enter an octal dump of a requested area of central memory 
into the OUTPUT file. 



GENERAL: This package may be called by a control card or DIS console. 
Three calls may be made: 

a) no parameters - dump only exchange package 

b) one argument - dump from RA to the specified address 

c) two arguments - dump area between the two addresses - 



METHOD: 1. Two checks made on the arguments passed through the 
input register may cause a diagnostic: 

a) terminal address < initial address 

b) terminal address y field length 

Either condition will cause a "DMP ARG ERROR" dayfile 
message and the control point aborted. 

2. In the case that both parameters are equal, i.e., 
usually zero, the exchange jump area (first 16 words of 
control point area) is set up as the dump address. The 
title of the dump is changed to "DMPX." 

3. The FNT is searched for a file of local or common and 
assigned to this control point. The name must be OUTPUT 
and the file on disk with buffer status indicating 
not busy (odd value). If no such file is found, an 
entry of this type is made into FNT so that the dump can 
be printed. The file status in either case is set to 
14,, (request coded write). 

4. If no OUTPUT file was found while searching FNT, then 
the new file just added must have a track assignment. 

A track is requested of MTR and when it is assigned the 
number is inserted in the FST entry of the new file. 

5. If the last reference to the file was a read operation, then 
no dumping will be done. This prevents writing over 
output data that may have been repositioned by the read. 

6. The dump has a header of either DMPX, for an exchange 
area dump, or DMP. for any other dump. Each central 
memory word has an address relative to RA and 4 five 
digit groups of data with two spaces between the address 
and data and a' space separating each byte. The peripheral 
buffer spans . from 2000-7000 and is filled before it is 
passed to the output file. 



7. The dump address is incremented by one until the 
terminal address specified in the input register is 
reached. A return jump is issued to dump the PP buffer 
into the OUTPUT file when it is full or the terminal 
address is encountered. 

8. The PP buffer is written on disk a full sector 
(100 words) at a time until short sector is found. 
It is written on the disk followed by a file mark and 
then channel is released. The buffer input address is 
reset so that more data may be inserted if the terminal 
address has not been reached. Every write to the disk is 
terminated by a file mark but the sector number is not 
incremented. This will prevent a file from ever 
running away but still allow more information to erase 
the file mark and reside within one file. 

9. After the formatted octal dump has been successfully 
passed to the OUTPUT file, the buffer status byte in 
FST is changed to 15„ (completed coded write). Then 
the PP is released. 



NOTES: 1. Successive identical lines are not suppressed. 

2. One print line contains only an address and a central 
memory word. 
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DMP Routines 



1000 

1100 
1200 
1300 
1560 
1600 
1700 
1740 
2000 
2030 



Main Program 1560, 1100, 1200, 12-760, 100, 

530, 13-760 
Search for Output File 740, 750, 12-760, 100 



Enter Output File 
Enter Line in Buffer 
Process Exchange Area 
Dump Buffer 
Enter Control Byte 
Write Sector 
Disk Buffer 
Begin Output File 



6-760, 1300, 1600 
1600 

740, 1700, 700, 1740, 750 
6-760 



15-740, 750, 12-760, 100 



Direct Core Cells 



1000 



1100 



1200 



P10/14 

P50/54 

P55 

P60/61 

P62/63 

P74 

P75 

P01 

P10/14 

P20/24 

P45 

P50/54 

P57 

P01 

P10/14 

P20/24 

P45 

P57 

P60/61 



CP Status 

Input register contents 

RA 

First argument 

Second argument 

CP address 

Input register address 

File type (local or common) 

FNT entry 

FNT status later FST entry 

Last buffer status from FST 

Input register contents 

FST address 

Central memory word count 

PP message buffer contents 

FST entry 

Last buffer status from FST 

FST address 

First argument 
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1300 



1560 



1600 



1700 



1740 



2030 



P62/63 

P64 

P10/14 

P60/61 

P64 

P60/61 

P62/63 

P55 

P74 

P01 

P02 

P20/24 

P64 

P65 

?02 

P10/14 

P20/24 

P01 

P20/24 

P01 

P10/14 

P20/24 



Second argument 

IN address for PP buffer 

Central memory word to be dumped 

First argument 

IN address for PP buffer 

First argument 

Second argument 

RA 

CP address 

Central memory word count 

Sector length 

FST entry 

IN address for PP buffer 

OUT address for PP buffer 

Disk status byte 

Message buffer 

FST entry 

Disk status byte from FST 

FST entry 

FNT index 

FNT entry 

FNT status 






DORESS FROM PPL ..'.PUT REGISTER 
■.iN ■■, T.-L ADDRESS ? 



_^J GAYrlLE MESSAGE -DMP ArtG ERROR 

| ASGRT CONTROL. POINT 
-5-i RELEASE FPU 



^771 — . vss .. Q 



AN nc.i_J i-c.\ 



LAn.'.n r'NT FOR OuTPoT F...E ASS.CNEO TO Tn.S CGNTROi. POINT l^_ 
. T» t »[ AN UT^I f.-E ? I 







Enter initial and terminal address for 
exchange package at control point 
modify headline of ppu suffer to s.'..px 



sri-iiT K.\T Channel 

LEARCh F.'-.T FOR A BLANK ENTRY 
:c TnENE A iiLANK ENTRY ? 



YES 



RELEASE ChANNEL j 
RELEASE PPU 



NTEh AN O'JTP-T FILE IN TnE rNT 
(ElEASE CHANNEL I 



i RFCioLT FST channel | "'S 

"1 ;u AN LOUlPMEr.T ASSIGNED TO THE OUTPUT FiLE ? I 



riLE BEING USED ? 



I SET FI-£ STATuS TO REGLEST CODED WRI i E 
; RELEASE CHANNEL 



RELEASE CHANNEL 
RELEASE PPU 



1 PRESET PPU STORACE DUFFER V/ITh 
! IS OuTPuT F.LE A NEW FILE ? 



TWO l-INE SPACES AND DM? 



WAS LAST F 



IlE hE.rlHZ^CZ IN READ (.'.ODE ? 



-|YE5_ 



nEAD NEXT WORD TO DE DUMPED 

ENTER A L.NE OF CODING IN PPU bUFFER CONSIST.NG OF A 
6 DIGIT ADDRESS AND -i FIVE DIGIT GROLPS OF DATA 
HAS L-OFFEH LIMIT DELN REACr.^D ? 



REQUEST MONITOR ASSIGN DISK TRACK 
WAS TRACK ASSIGNED ? 



RELEASE FILE STATUS 



YES _ I ENTER TRACK NUMDER 
^l IN FILE STATUS WORD 



NO I ADVANCE DUI..P Au-Lir. ...... 

' ERMiNAL ADDR.-SS SEEN REACHED ? 



HAS ic^ 



RJ DLI.IP PPU SUFFER 



| C.EAR NEXT WORD IN PPU DU.-FER | 




\ 


, 






RJ Duf.iP PPU bur.-ER 






1 
i 
'.7 




LPDATE FluE STATUS WORD .N KST , 
RELEASE PPU 1 



Z'.,',? SUBROUTINE 
DUMP ??J ELrFER 



w 


RZCUEST ChANNEL 

RESET BUFFER OUTPUT ADDRESS 


\ 


/ 





-". Is these 


SUFFICIENT DATA IN 






YES 

/ 




POSITION DISK TO NEXT SECTOR 




ADVANCE oJFFER 


OUTPUT ADDRESS 



BUrFER FOR A FULL SECTOR ? 



NO 



v/ 



position disk to next sector 
Write short sector 
write file mark 



\/ 



RELEASE CHANNEL 

RESET BUFFER INPUT ADDRESS 

EXIT 



ROUTINE 



EXU 



Execute Compiled Program 



PURPOSE 



To locate and read a specified file from the disk into central 
memory. The appropriate exchange jump package parameters are 
set up and then the central processor is told that the file is 
ready for execution. 



GENERAL After a filft has been compiled and stored on the disk, EXU is 

used to load a file into central memory beginning at the calling 
program's reference address. The location of the name of the 
file (left- justified display code) to be called and executed 
is set in the lower 18 bits of the input register. 

METHOD 1. The error flag at the control point is checked. If it is 

set, the package is released so that error processing may proceed. 

2. The file name is read in by adding RA and the lower 18 bits 
of the input register. FNT is searched for the file name and 
if it is located a check is made on its control point assign- 
ment. 

3. When the file is located, its type from the FNT is checked 
for input and output. Only common or local files may be executed. 

4. The FST entry must reflect that the file is on disk and has 
been used. 

5. A dayfile message of "PROGRAM NOT ON DISK" is sent if: 
a) The file name was not located in the FNT. 

The file was not assigned to the calling control point. 
The file has either an input or output status. 
The file has an equipment other than disk assigned, 
i.e. it is a card file or tape file. 
The file has not been used, i.e. no track has been 
assigned. This status is reflected by checking the 
..beginning track byte in the FST for non-zero. 



b) 
c) 
d) 

e) 



6. A request for channel is made and the disk is positioned 
to the beginning track and sector for the file. 

7 The file is read and stored one sector at a time into central 
memory beginning at the control points- reference address. ■ 
Encountering a short sector or reaching the field.-limit causes 
the reading of the file to be terminated. 

8 If the field limit was reached before the end of the file, 
a' dayfile message of "PROGRAM TOO LONG" appears and the control 
point aborted. 
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9. The exchange jump package in the control point area is 
updated to permit execution of the newly loaded program. 

a) First the sense lights and switches from word 26 of the 
control point are stored in RA. 

b) RA+1 is read and then cleared. 

c) P in the echange jump area is set to the number of para- 
meters from RA+1, plus 3. The field length (in hundreds) 
from word 20 is stored in A0. 

d) RA and FL remain the same values, but all of the other 
registers are cleared. 

10. The central processor is then requested by a MTR code 
158. When this request has been processed, the PP is released. 



NOTES 1. The calling program is completely overlayed by the file 
read in off the disk. 

2. Sense lights and switches are passed from the calling 
program to the new program through RA. 

3. The field length specified in RA of the called program 
is ignored. Only the field limit assigned initially to the 
control point is checked. 



EXU Routines 



.1000 

1100 
1200 
1300 



Main Program 

Search for file 

Read program from disk 

Clear exchange area 



12-760, 100, 1100, 1200, 
1300, 15-760, 531, 13-760 

1160, 1064 

740, 700, 400, 750 



1000 



1100 



Direct Core Cells 

P06 beginning track number of file 

P07 sector number 

P10/14 CP(20) - status word 

P20/24 contents of FST entry 

P50/54 contents of input register 

P55 KA 

P56 FL 

P57 FST status 

P74 control point address 

P75 address of input register 

P7200/7702 disk buffer 

P01 control point assignment 

P10/14 FNT entry, later FST entry 

P20/24 File name in left-justified display code 

P30/34 FNT status 
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1200 



13 00 



P01 

P04 

P05 

P06 

P07 

P01 

P10/14 

P20/24 

P30/34 



control point assignment 

KA (in hundreds) 

FL (in hundreds) 

track number 

sector number 

control point assignment 

zeroed, later each word of exchange area 

CP (26), later RA+1 

GP (20) 
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EXL ? 
EXECL 



CKAuE 

E PRCGRA 



READ RA AND FL FROM CONTROL POINT AREA I 
IS ERROR FLAG SET ? 



RELEASE PPU 



ji. 



RLAD ARGUMENT ADDRESS FROM PPU INPUT REGISTER 
READ FILE name from ARCJMENT LOCATION 
SEARCH FNT FOR FILE NA.'.'.E 
IS NAMED FILE ASSIGNEC 



THIS CONTROL POINT ? 



DAYFILE MESSAGE -PROGRAM NOT ON DISK 

ABORT CONTROL POINT 

RELEASE PPU 



A 



YES 



IS AN EQUIPMENT NoMDER ASSIGNEE ? 



A 



HAS FI..E bEEN USEO 



: H:.CjUEST CHANNEL 

I i'OSiriON DiSrt FILE,TO bEGiNMNG TRACK AND SECTOR 

! HEAD DISK DATA TO A ShORT SECTOR OR FIELD LIMIT BEGINNING AT RA 

| WAS F,_ REACnED ? _______^_ 



YES 



RELEASE ChANNEL 

DAYFILE MESSAGE -PROGRAM TOO LONG 

ABORT CONTROL POINT 

RELEASE PPU 



NO 



RELEASE CHANNEL 

Ci-EAR EXCHANGE AREA 

SET P TO LOWER SIX BITS OF (RA+i) PLUS 3 

Enter Fl in AO 
ClEAR RA AND RA-rl 



I 



REQUEST. CENTRA^ PROCESSOR 
RELEASE PPU 



ROUTINE : 



CLL -- Central Library Loader 



PURPOSE: To load one or more overlays into an area specified by a 
central memory calling program. 



GENERAL: The location (BA) of the overlay parameters is set into the 
lower 18 bits of the input register. The location (BA) 



BA 




FWA 


BA+1 


LIMIT 


BA+2 


NAME 


ADDR 




* 
f 
1 


BA+n+2 








■ ' 



FWA 

LIMIT 

NAME 



- beginning address for first overlay 

- last address for group of overlays 

- name of overlay (left-justified display 
code) 



The address of where the overlay begins will be returned in 
the lower 18 bits of its location in the BA area (ADDR). If 



it cannot be loaded because the length exceeds LIMIT, 



address of 111111 will be inserted, 
cleared if the overlay cannot be located, 
terminate the parameters. 



an 



The address will remain 
A zero word must 



METHOD: 1. The RA and FL are read from CP(20) and stored in hundreds. 

2. From the input register the location of BA is read and 
incremented by RA so the first parameter is read. 

3. When the LIMIT is read, a check is made to insure that 
it is within the field length. If LIMIT exceeds FL, the 
PP is released and no diagnostic results. 

4. Each argument is read and checked for zero. If it is 
zeroj then the list is assumed to be exhausted. 

5. The resident subroutine library (RSL) is first searched. 
The first entry in RSL is checked against the name of 
the overlay. If a match is not found, then the field 
length of the RSL entry is added to the beginning address 
of RSL, in order to find the next subroutine in the table. 

6. If the overlay is found in RSL, the length is added to 
FWA and that total may not exceed LIMIT. If it does, then 
77777 is entered into the beginning address area of that 
overlay (ADDR). The next argument will be read and 
processed. 
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7. FWA will reflect the next available location for loading 
so it is stored as ADDR for that argument. The program 
is transferred 100 ft words at a time and FWA is increased 
by the number of words stored until a short record is 
encountered. A zero length record is not transmitted. 

8. FWA is increased to the next available central memory- 
address and then the next argument is processed. 

9. If the name is not found in RSL then the central library 
directory (CLD) is searched, The format of this table 
is: 



D 



NAME (DISPLAY CODE) 



SEC 



TRACK 



42 6 12 
It is terminated by a zero word or table limit. 

10. When the overlay is found to be in CLD, then FWA is 
stored as the overlay's beginning address. Channel 
for the disk is requested and it is positioned to the 
proper track. 

11. One sector at a time is read and its length recorded. 
If a zero length is found, it is not transmitted. If 
the sector length exceeds the number of words to LIMIT 
then they are not stored and 11111 is set as the 
beginning address. Track repositioning is checked after 
every read. If the short sector is encountered before 
the LIMIT exceeded, it is stored and FWA is updated to 
be the next available program address. Another argument 
is then processed. 

12. If the name was not found in the RSL or CLD, then the 
job file is read. If the package is found in the FNT, 
then it must be assigned to the calling program's control 
point and be on disk 0. If it is not, then the next 
argument is processed. 

13. When a file is found in the FNT, the same disk operations 
apply as those with CLD. 

14. When an argument is found to hi- /• in I hen the nrxt 
available program address (FWA) i ■•• .'.rumil. |',A in also 
cleared to inform the calling pLugiam that CLL was 
finished. Then an MTR code of 15 R , requesting the 
control processor is made and the PP released. 



NOTES: 1. The FORTRAN compiler uses CLL to load its subroutines. 

2. All files loaded by CLL are compiled to execute from 0. 
Therefore, if a program wanted to take advantage of this 
feature, all K portions of the instructions must be 
modified for a different starting point. 

3. The last overlay loaded by CLL is followed by a zero 

T.T l-\ ■Y* el 



CLL Routines 



1000 


Main Program 


1101, 1201, 15-761 


1100 


Read arguments 


12-761 


1200 


Process argument 


130J., 1501, 1601 


1300 


Search RSL 




1500 


Search CLD 


1601 


1600 


Enter program from disk 


741, 701, 401, 751 



Direct Core Cells 



1000 



1100 



1200 



P10/14 

P20/24 

P50/54 

P55 

P56 

P57 

P60/61 

P74 

P75 

P10/14 

P50/54 

P55 

P56 

P60/61 

P62/63 

P64/65 

P01 

P06 

P07 

P10/14 

P20/24 

P30/34 

P74 



CP address 

Argument 

Contents of Input register 

RA in hundreds 

FL 

Constant 100 

FWA - next available program address 

CP address 

Address of Input register 

FWA and later LIMIT 

Contents of Input register 

RA 

FL ' 

Location of BA 

FWA 

LIMIT 

CP assignment 

Track number 

Sector number 

FNT entry 

Contents of Input register 

FNT status 

Address of Input register 



15 



1300 



1500 



1600 



P01 

P10/14 

P14 

P20/24 

P30/34 

P55 

P57 

P62/63 

P64/65 

P7200/7302 

P06 

P07 

P10/14 

P20/24 

P30/34 

P01 

P04/05 

P06 

P07 

P20/24 

P55 

P60/61 

P62/63 

P64/65 



Number of words read 

RSL entry 

Total number of words transferred 

Contents of Input register 

RSL status 

RA 

Constant 100 

FWA, next available program address 

LIMIT 

Input buffer 

Track number 

Sector number 

CLD entry . 

Input register 

CLD status 

Sector length 

Number of words to LIMIT 

Track number 

Sector number 

Input register 

RA 

BA 

FWA 

LIMIT 
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CL.L PACKAGE 

CENTRAL LIBRARY L0A3ER 



V 



READ RA AND FL FROM CONTROL POINT AREA 

READ ARGUMENT AREA ADDRESS FROM PPU INPUT REGISTER 

READ STARTING ADDRESS AND LIMIT ADDRESS 



IS LIMIT ADDRESS GREATER THAN FIELD LENGTH ? -2£|. 



NO 



A 



IS NEXT ARGUMENT ADDRC3S OVER FIELD LENGTH ? 



YES 



S4 REi 



ELEASE PPU 



V 


/ 


YES 




Clear next program address location 
clear first argument 
request central processor 
release ppu 


READ NEXT ARGUMENT 

IS ARGUMENT A BLANK WORD ? 








NO 
/ 


\ 







SEARCH RSL FOR ARGUMENT NAME 
IS PACKAGE IN RSL ? 



NO 



NO 



1 



Will package exceed limit address ? 



YES 



| set limit flag in argument location — >Ca) 



1 — >\ c 

A 



STORE INITIAL PROGRAM ADDRESS IN ARGUMENT LOCATION 

COPY PROGRAM 

ADVANCE PROGRAM ADDRESS 







SEARCH CLD FOR ARGUMENT NAME 
IS PACKAGE IN CLD ? 



\/ 



YES 



NO 



NO 



oEARCH FNT FOR ARGUMENT NAME 
ASSIGNED TO THIS CONTROL POINT 
IS PACKAGE IN FNT ? 



YES 



NO 



IS PACKAGE ON DISK FILE ? . |JlI£ 



— =H 

NO 



STORE INITIAL PROGRAM ADDRESS IN ARGUMENT LOCATION 

REQUEST CHANNEL 

POSITION DISK FILE TO BEGINNING OF PACKAGE 

COPY PACKAGE UNTIL SHORT SECTOR OR LIMIT ADDRESS 

WAS LIMIT ADDRESS REACHED ? 



YES 



SET LIMIT FLAG IN ARGUMENT LOCATION 
RELEASE CHANNEL 



RELEASE CHANNEL 
ADVANCE PROGRAM ADDRESS 
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ROUTINE: 



LBC -- Loading Binary Corrections 



PURPOSE: To load binary cards from the INPUT file into central 
memory . 



GENERAL: The lower 18 bits of the input register contain a beginning 
address for the card loading. If the address is zero, the 
binary cards, are loaded beginning at RA. It may be called 
via a control card or from a DIS console. 

METHOD: 1. From the control point status word (20), the RA and FL 
are read. 

2. Each entry in the FNT is searched for type local and 
assignment to this control point. 

3. If no entry is found, then the PPU is released without 
a diagnostic. 

4. When an entry is found, the file name is checked against . 
INPUT. If it does not match, the search of FNT continues. 

5. After the INPUT file is located, the FST entry is 
checked. The file must be on disk or the PPU is 
released. 

6. The last buffer status is checked. If it is even, then 
the file is being used and no action will be taken. If 
it is odd, then the file has no operation begin performed 
on it, so the status is decreased by one to make it 
active. When another PP wants to access this file, the 
buffer status will reflect an even number informing the 
requesting PP that the file is being acted upon. 

7. The disk .is positioned to the track stated in the FST and 
one sector is read, into PP memory. After each read, 

a check is made for file mark and data exceeding field 
length. If a file mark is encountered, the buffer status 
is made odd and the PP released. A dayfile message 
"LBC RANGE LIMIT" appears if the field length would be 
exceeded thereby also causing the buffer status to be 
changed and the CP aborted. 

8. After the sector read is checked, it is transferred to 
central memory at the location specified from the input 
register. 

9. Only one record will be read from the INPUT file so when 
a short sector is encountered, the buffer status is 
changed and the PP is released. 
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LBC Routines. 



1000 
1200 



Main Program 

Search for Input file 



1200, 740, 700, 400, 750, 
12-760, 530, 13-760 
740, 12-760, 750 



Direct Core Cells 



1000 



1200 



P01 

PUb 

P07 

P10/14 

P20/24 

P50/54 

P55 

P56 

P74 

P75 

P7200/7702 

P01 

P10/14 

P20/24 

P20/24 

P50/54 

P57 



Sector length 

Track number 

Sector number 

CP status (word 20) 

FST entry 

Contents of input register 

RA (in hundreds) 

FL 

CP address 

Address of input register 

Disk buffer 

File type of local and CP 

FNT entry 

FNT status 

FST entry 

Contents of input register 

FST address 
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LSC PACKAGE 

LOAD BINARY CORRECTIONS 



_V_ 



READ HA AND FL FROM CONTROL POINT AREA 

READ INITIAL DATA ENTRY ADDRESS FROM PPU INPUT REGISTER 

SEARCH FNT FOR INPUT FILE 

IS INPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



NO 



»j RELEASE PPU 



YES 



\/ 



REOUEST FST CHANNEL 

READ FILE STATUS WORD 

IS AN ECUIPMENT NUMBER ASSIGNED ? 



NO 



\ 


/ 


YES 




RELEASE CHANNEL 
RELEASE PPU 


IS FILE bEING USED ? 








NO 

1 


\ 







SET FILE STATUS WORD TO ACTIVE STATE 
RELEASE FST CHANNEL 



REOUEST CHANNEL 
HAS FILE BEEN USED ? 



NO 



POSITION DISK FILE TO NEXT TRACK AND SECTOR 
READ SECTOR TO PPU STORAGE 
WAS SECTOR A FILE MARK ? 



YES 



UPDATE FILE STATUS WORD 
RELEASE CHANNEL 
RELEASE PPU 



NO 



ADVANCE FILE STATUS TO NEXT SECTOR 
WILL DATA EXCEED. FIELD LENGTH ? 



YES 



NO 



oayfile message - lbc range limit 
Update file status 
release channel 
abort control point 
release ppu 



\l 



STORE DATA IN CENTRAL STORAGE 

ADVANCE DATA ADDRESS 

WAS SECTOR A SHORT SECTOR ? 



\' 



YES 



UPDATE FILE STATUS 
RELEASE CHANNEL 
RELEASE PPU 
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ROUTINE: 



LOC -- Load Octal Corrections 



PURPOSE: 



To make octal corrections to a program already residing in 
central memory. 



GENERAL: 



Three calls may be made to this package: 

a) A call without parameters will change the central memory 
words specified on cards in the next INPUT record. 

b) With one parameter, central memory is cleared from EA 
to the address specified and the cards in the next 
INPUT record are assembled. 

c) Two parameters cause the memory between the two arguments 
to be cleared and then the correction cards to be read. 



METHOD: 



1. RA and FL are read from CP (word 20). 

2. The arguments, beginning address and terminal address 

of where the corrections are to be inserted are checked. 

a) First greater than second. 

b) Second greater than field length. 

3. If the two arguments are not equal, the central memory 
contained within the two is cleared. 



4. 



5. 



7. 



8. 



The FNT is searched for a file INPUT associated with this 
control point and of local or common type. If one is 
not found, no diagnostic results, but the PP is released. 

The proper file must be on disk file and have an odd 
buffer status (not busy). If either condition is not 
met, then the PP is released. 



6. By decreasing the buffer status by one, this control 
point puts the file in active status. 



Channel is requested for the disk which is positioned 
to the proper track from the FST. The PPU buffer is 
filled with the octal correction cards from INPUT until 
the buffer is either full or a short sector is encountered. 

The cards have trailing spaces suppressed by a zero byte 
and are written in 100 g word sectors. Since the buffer is 
iUOOg PP words long, many sectors may be read. Each 
sector has a two word control byte which is not useful 
data to the program. In order to have all the useful 
data packed, the last two words of the previous sector 
are temporarily stored out of the buffer and the next 
sector is read over their initial location. When the 
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control bytes have been used, the two words are restored 
to their buffer positions and the last two words of the 
sector just read are temporarily stored out of the 
buffer. 

9. When the buffer is either filled or all the correction 
cards read, INPUT is put into an inactive state (status 
is odd) so that another PP may use it. 

10. Each octal correction card is unpacked into a character 
string buffer (one character per word). A zero byte 
terminates the unpacking of one card. 

11. When the line buffer is loaded, the address is assembled. 
The address must be between column 1 and column 7. Spaces 
are suppressed and leading zeroes are not necessary. If 

a non-octal digit appears, the address is not assembled 
and no diagnostic is given. 

12. After the address is assembled, the data word is packed. 
The data must begin after column 7 and contain 20 digits. 
If a non-octal digit appears the word is not assembled 
and no diagnostic is given. 

13. The assembled address is checked against field length and 
is not inserted into its position if it exceeds FL. The 
assembled word is then entered into its assembled address. 



NOTES: 1. If corrections are to be made to a binary deck, LBC 

(load binary cards) should be used before LOC. LOC only 
makes changes to programs already, in central memory. 

2. Central memory may be cleared using LOC only if an 
empty record appears in' the INPUT file. 

3. On the correction cards, the address must end before 
column 7. Spacing is i not important and leading zeroes 
may be dropped. 



- 22 



LOC Routines 



1000 

1100 
1200 
1300 
1400 
1500 
1600 



Main Program 



Search For Input File 

Load Buffer 

Assemble Word 

Unpack Character String 

Clear Storage 530, 13-760 

Assembled Address 



1500, 1100, 1200, 1400, 1600 
1300, 12-760, 100 
12-760, 100, 740, 750 
740, 700, 400, 750 



1000 



1100 



1200 



P20/24 

P40/44 

P50/54 

P55 

P56 

P60 

P61 

P63/64 

P75 

P01 

P10/14 

P20/24 

P20/24 

P50/54 

P57 

P01 

P06 

P07 

P20/24 

P46 

P47 

P60 

P2000/7000 



Direct Core Cells 

FST entry 

Assembled word 

Input register 

RA (in hundreds) 

FL (in hundreds) 

Input buffer address 

Output buffer addre"ss 

Assembled address 

Input register address 

Local type and CP assignments 

FNT entry 

FNT status 

FST entry 

Input register 

FST address 

Sector length 

Track number 

Sector number 

FST entry 

Data byte 

Data byte 

Buffer input address 

Buffer 



23 - 



1300 



1400 



1500 



1600 



P01 


Octal digit 


P02 


Byte address 


P40/44 


Assembled word 


P62 


String address 


P60 


Input 


P61 


Output 


P62 


String address 


P7200/7400 


String buffer 


P10/14 


Zero word 


P50/54 


Input register 


P55 


RA 


P56 


FL 


P62/63 


First argument 


P01 


Octal digit 


062 


String address 


P63/64 


Assembled address 
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LCC PACKAGE 

LOAD OCTAL CORRECTION'S 



v/ 




READ HA AND FL FROM CONTROL POINT AREA 

READ ARGUMENTS FROM PPU INPUT REGISTER 

IS FIRST ARGUMENT GREATER THAN SECOND ARGUMENT? 


YES 




\ 


NO 





ARE ARGUkEf.TS EQUAL ? 



NO 



IS SECOND ARGUMENT GREATER THAN FIELD LENGTH ? 



NO 



YES 



Clear centra,, storage from first argument 
address to second argument address 



SCARCH FNT FOR AN INPUT FILE 

IS THERE AN INPUT FILE ASSIGNED TO THIS CONTROL POINT ? 



IS THE INPUT FILE DEING USED ? 



YES 



NO 





'/ 


RESERVE FILE 
RELEASE FST CHANNEL 


\ 


/ 



REQUEST CHANNEL 
HAS FILE BEEN USED ? 



YES 



YES 



position disk file to next sector 
read sector to ppu buffer 
Was a file mark read ? 



NO 



IS PPU BUFFER FULL ? 



1 YES 



NO 



NO 



WAS A SHORT SECTOR READ ? 



YES 



RELEASE FILE STATUS 
RELEASE CHANNEL 



DAYFILE MESSAGE- LOC ARGUMENT ERROR 
ABORT CONTROL POINT 
RELEASE PPU 



^ RELEASE PPU 



A 



REQUEST FST CHANNEL 
REAO FILE STATUS WORD 


YES 


IS AN EQUIPMENT NUMBER ASSIGNED ? 




\ 


NO 





RELEASE FST CHANNEL 



7T 



RELEASE FILE STATUS 
RELEASE CHANNEL 
RELEASE PPU 



UPOATE FILE STATUS 
RELEASE CHANNEL 



IS PPU BUFFER EMPTY ? 



\/ 



YES 



F 2 *© 



(NEXT PAGE) 



RELEASE PPU 
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(LOC CONTINUED) 



Clear line buffer 



N(3 HAS END OF BUFFER OATA BEEN REACHED ? 



YES 



WAS LAST. SECTOR A SHORT SECTOR ? 



YES 



NO 



REQUEST CHANNEL 

RtSET PPU BUFFER ADDRESS. 



YES 



POSITION DISK FILE TO NEXT SECTOR 
READ SECTOR TO PPU BUFFER 
WAS A FILE MARK READ ? 



NO 



IS PPU BUFFER FULL ? 



NO 



WAS A SHORT SECTOR READ ? 



YES 



RELEASE FILE STATUS 
RELEASE CHANNEL 



T» UNPACK NEXT WORD INTO LINE BUFFER <? 



HAS LINE BUFFER LIMIT BEEN REACHED ? 



NO 



NO 



Does last word end in a blank byte ? 



YES 



JL 



assemble octal oioits in first six character positions of line 

Skip spaces 

is there a non- octal character in first six positions ? 



NO 



YES 



STORE ASSEMBLED ADDRESS FOR OATA ENTRY 

ASSEMBLE 20 OCTAL OIOITS BEOINNINB IN POSITION 7 OF LINE BUFFER 

SKIP SPACES 

IS THERE A NON -OCTAL CHARACTER BEFORE 20 DIGITS ? 



YES 



NO 



Jl 



IS ASSEMBLEO ADDR ESS OREATER THAN FIELD LENGTH ? \ 
NO 



YES 



ENTER ASSEMBLED WORO AT ASSEMBLED ADDRESS 



UPDATE FILE STATUS 
RELEASE CHANNEL 



■> IS PPU BUFFER EMPTY ? 



YES 



RELEASE PPU 



NO 



-*® 



-Ka) 



-*® 



<s 
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ROUTINE: 



MSG - Dayfile Message 



PURPOSE: 



To enter messages from a central memory program into the 
dayfile. 



GENERAL: 



This package checks the legality of the characters to be 
displayed and transmits them from central memory to this 
PP's message buffer. The lower 18 bits of the input register 
contains a beginning address of the message to be displayed. 



METHOD: 



1. The field length from CP(20) is read and the argument 
address of the message must be in bounds. 

2. The message is checked character by character for legal 
display codes (0-60 ) and if all are legal, they are 
stored in the message buffer area of the PP. 

3. A dayfile message "MESSAGE FORMAT ERROR" appears if: 

a) The argument address is not within the field length. 

b) There is an illegal character in the message. 

c) The message length is greater than 6 central memory 
words. 



4. 



In CP(22) there is a count of the total number of 
messages sent to the dayfile from the job assigned to this 
control point. If more than 100 messages have been 
sent, a dayfile message of "MESSAGE LIMIT" appears and 
CP aborted. 



5. A MTR code of 01 (dayfile message) is sent to the PP 
resident and after it has been processed, the PP is 
released. 
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MSG Package 
Dayfile message 



iL 



head argument aodress from ppu input register 

Read field length from control point area 

Is AGRuMENT address greater than fielo length ? 



YES 



Dayfile message - message format error 
Abort control point 
Release PPU 



A 



Copy message from argument area to PPU message buffer 
Are there any illegal character codes ? 



YES 



does message length exceed buffer length ? 



YES 



dayfile message - message limit 
Abort control point 
release ppu 



Release .message to dayfile 
release ppu 
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ROUTINE: 



PBC - Punch Binary Cards. 



PURPOSE : 



To format an area of central memory and punch it in the form 
of binary cards. 



GENERAL: 



This package may be called by a control card or DIS console, 
Four calls may be issued: 



1. 



2. 
3. 

4. 



no parameters - a binary deck beginning at RA and terminating 
$ne address less than the field length specified in the 
first word of the program. This call may be used to punch 
either a central or peripheral program in binary form. 

one argument - area between RA and the address are punched. 

two arguments - first argument is initial address and second 
is terminal address for a binary deck. 

finnnn d I ^T° 8 ar T gument " inlti ^ address specified by 
400000s + address. Lower 18 bits of this address added to 
it to form terminal address. 



METHOD : 



1. The initial address for the binary deck is read from the 
input register. 

2. A check is made for the special 400000 8 call. If the 
eighteenth bit of the terminal address is set, then the lower 
portion of the address (that left after 400000 8 is subtracted) 
is set as the initial address. The lower 17 bits of this 
location is added to the initial address and used as the 
terminal address for the binary deck. Therefore, only a 
limited amount of memory may be punched if the 18th bit 

flag is set. 

If the initial address is greater than the terminal address, 
the package is released without a diagnostic. 

If the initial and terminal addresses are equal, then the 
lower 18 bits of RA is used as a terminal address. The 
initial address is cleared so that the area between RA 
and the FL-1 will be punched. 

5. When the initial and terminal addresses have been set up 

properly, MTR is requested to assign the card punch to this 
job. If no card punch is available, the processing must 
wait on assignment. 



3. 



4. 



6. 



Card punch assignment causes channel and synchronizer 
references within the package to be modified according to 
the entries from the EST. 
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7. Since the card punch is generally the slowest piece of 
equipment and PBC retains control of the PP until the 
complete binary deck is punched, a pause for MTR to adjust 
RA and FL during storage move is issued after every card is 
punched. 

8. "PBC RANGE ERROR" and control point abort result if the 
terminal address ever becomes greater than the field length. 

9. The punch buffer is loaded with data for the next card. In 
column one is stored 7-9 punches and card length. The 
data bytes are summed and stored in column two module 4095. 
Column 79 is not used and the binary sequence number is 
stored in column 80. 

10. The punch must be ready or a console message "PUNCH NOT 
READY" is sent. 

11. One card is then punched. 

12. When the terminal address is reached, the package is 
released so that one less than the terminal address words 
are punched. 

NOTES: 1. The flagged call is used by the Fortran compiler to punch a 
deck in I mode. 
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PBC Routines 

1000 Main Program 1640, 1600, 1200, 1500, 1100, 

1300, 1400, 23-760, 12-760, 100 

1100 Sense CP status 17-760, 530, 13-760, 12-760, 100 

1200 Request CP 22-760, 1100 

1240 Sense punch ready 

1300 Load Punch buffer 

1400 Punch one card 13-740, 1240, 1440, 750 

1440 Output one byte to punch 

1500 Modify program for 

equipment parameters 

1540 Channel modification table 

1560 Synchronizer modification 

table 

1600 Process RA length 12-760, 100 

1640 Process flag length 
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pbc package 
Punch binary cards 



IH3 J READ IN.TIAL AMD TERMINAL ADDRESSES FROM PPU INPUT REGISTER 

I IS TERMINAL ADDRESS 4MM OR GREATER? 

1 f066/X>tj\ YES 



_V_ 



<POtBtiC) W 

Subtract *•••!« from term.nal address and enter as initial adoress 

head lower 18 bits from this storage location and add to new 
initial address to form new terminal address 
are new initial and terminal addresses eoual ? 



YES 



RELEASE PPU 



/|\ A 



NO 



_^_ 



iS INITIAL ADDRESS GREATER THAN TERMINAL ADDRESS ? 



YES 



NO 



V 



IS INITIAL ADDRESS EOUAL TO TERMINAL ADDRESS ? 



READ LOWER 18 BITS OF (HA) AND ENTER AS TERMINAL ADDRESS 
IS TERMINAL ADDRESS ZERO ? 



YES 



CLEAR INITIAL ADDRESS TO ZERO 



REQUEST MONITOR ASSIGN CP EQUIPMENT TO CONTROL POINT 
WAS EQUIPMENT ASSIGNED ? 



modify package for equipment parameters 
Clear card count 



console message-no cp available 
Pause for monitor 
read ra and FL 

IS ERROR FLAG SET ? 



RELEASE PPU 



NO 



IS TERMINAL ADDRESS GREATER THAN FIELD LENGTH ? 



YES 



V 



PAUSE FOR MONITOR 

READ RA AND FL 

IS ERROR FLAG SET ? 



YES 



-3<J RELEASE PPU 



V 



OAYFILE MESSAGE-PBC range error 

ABORT CONTROL POINT 
RELEASE PPU 



NO 



A 



V 



IS TERMINAL ADDRESS GREATER ThAN FiELD LENGTH ? 



YES 



NO 



LOAD PPU PUNCH BUFFER WITH DATA FOR NEXT CARO 
STORE CARD LENGTH AND 7-S PUNCH IN COLUMN ONE 
STORE MOD 40S5 CHECK SUM IN COLUMN TWO 
STORE CARD NUMBER IN COLUMN 80 



\/ 



REQUEST CHANNEL FOR CARD PUNCH 



READ PUNCH STATUS 
IS PUNCH READY ? 



CONSOLE MESSAGE -PUNCH NOT READY 



YES 



PUNCH ONE CARD 

RELEASE CHANNEL 

HAS TERMINAL ADDRESS BEEN REACHED ? 



YES 



REQUEST MONITOR RELEASE CARO PUNCH 
RELEASE PPU 
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Program Partitioning 



Introduction 



Chaining is a method used to execute a program which exceeds 
available storage or field length. The program' is separated 
into a main program and any number of segments which may be 
called and executed as needed by the FORTRAN program. Both 
the main program and segments may contain one or more sub- 
routines and/cjr functions. Overlays may be loaded (and 
executed) or replace the calling program by appropriate 
central program machine language action. 
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II. RUN Modes 

A copy of the compiled program or segment (s) is always left on the 
disk. Either may be called (by name) and executed separately. Each 
partition (segment) including its subroutines must be separated from 
the main program or other partitions by a record separator. Two 
consecutive record separators must separate the last END statement 
from the first data card or file separator. 

A. Chain Mode -- RUN(C, ) 

Chain mode is comparable to 6 mode except that segments may be 
. . assembled following the main program. That is, no listing is pro- 
duced and execution is assumed unless compile errors are encountered. 
The programs to be compiled must be a PROGRAM followed by one or 
more SEGMENT (s) each separated by a record separator. 

B. Batch Mode -- RUN (B, „.) 

Batch mode is comparable to S mode except that any combination 
of one or more programs, subroutines, segments, or functions may 
be compiled. Also, a listing of the source language is always • 
produced and execution is not assumed. Each program and segment is 
written on the disk as a file using the name specified on the 
PROGRAM or SEGMENT card. Therefore, execution may be initiated 
by a Program Call Card. 
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III. FORTRAN Usage 

A. Definition of Segment 

Each segment, must begin with the statement: 

SEGMENT name (f , , f„, f n , , f ) 

i / J n 

where name is an alphanumeric identifier for the segment. This 

is the name that must be used when calling the segment 

f , f„ ..are file names of the files used any place in the 
'program. These file names must agree in number and 
order with those specified for the main program. 
All files used in the execution of the main program 
and all segments must be specified on the PROGRAM 
and all SEGMENT cards. 

Compilation of segments and programs differ only in the following 
respect: 

1. Blank common is not cleared to zero by the object code 
in a segment. 

2. Buffer space and parameters are not initialized by the 
object code in a segment. They are carried over from the 
main program in order not to destroy any input or output 
when calling segments. 

B. Calling a Segment 

A segment is called by using the FORTRAN statement: 

CALL CHAIN (name) 

Where CHAIN is the subroutine that loads and initializes 
execution of the called segment. 

name is the identifier of the segment to be loaded and 
executed. 

Segments to be called by CHAIN may reside as a named file on the 
disk. The only parameter to CHAIN must be the segment name. 

C. General 

1. Segments may be called from either the main program or 
another segment. 

2. Calling of a segment causes the segment to be loaded over the 
calling program thus destroying the main program or segment 
that issues the call. 

3. Segments may be called more than once. 

4. Parameters and communication between segments can be passed 
only through the use of blank common. 
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5. Each segment is compiled beginning with relative address 

zero (RA = 0). 

6. In order to match locations of blank common, all elements of 
blank common must be described in the same order and number 
in the main program and all segments or the length of 
common must be declared on the RUN card. 
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Example: 



CHNTST, 1, 100, 40000 

MODE 7. 

RUN (B) 

CHN. 

7-8-9 

* PROGRAM CHN (INPUT, OUTPUT, TAPE10) 

** COMMON I, J, K, A(5), B(10) 

READ 5, A 



CALL CHAIN (S2) 

END 
7-8-9 
* SEGMENT SI (INPUT, OUTPUT, TAPE 10) 

** COMMON I, J, K, A(5), B(10) 



WRITE (999, 10) B(10) 



CALL CHAIN (S3) 
END 
7-8-9 
* SEGMENT S2 (INPUT, OUTPUT, TAPE10) 

** COMMON I, J, K, A(5), B(10) 



CALL CHAIN (SI) 

END 
7-8-9 
* SEGMENT S3 (INPUT, OUTPUT, TAPE10) 

** COMMON I, J, K, A(5), B(10) 



7-8-9 
7-8-9 



6-7-8-9 



END 



Data Deck 



* These statements must specify all file names even though they are not 
referenced in the segment or program. 

* All elements must be included in the list. 
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IV. Machine Language Calls 

Two peripheral packages are available for loading and/or executing 
segments.. One loads one or more segments. The other loads and 
executes one segment or program destroying the calling program. 



A. EXU 



This package loads a program to replace the calling program and 
initiates execution of the loaded program. The calling program is 
destroyed. 

1. CALL 

The routine is called by setting certain parameters into 
RA+1 of the calling program. 

RA+1 = EXUOO OLLLLLL 

18 24 18 bits 

when EXU is in display code, 

LLLLL is the address of the argument . The argument 

is the name of the central program to be loaded 
and executed. The name is specified in display 
code with trailing spaces . 

2. Usage 

After the monitor recognizes the request in RA+1 and 
assigns a PPU to process the request, PA+1 is cleared to 
zero by the PPU. At this point, the central program must ter- 
minate itself normally in order to allow the PPU to load the 
program. The central program is terminated by placing END 
(trailing spaces) in RA+1 and looping until it is terminated. 

EXU resets or clears all operational registers - A , B , X - 
1.x: „u ii j n' n' n 

before executing the called program. 

EXU loads only from job files on disk (common or local) 

3. Example: 

Following is an ASCENT subroutine which may be called from a 
FORTRAN program to call EXU. This example is very similar 
to the CHAIN subroutine except the name of the program is 
fixed to SEG1. 

Col. 2 7 11 

ASCENTF SUBROUTINE LDS 

PS 

PS 
EXIT PS 
TAGl SA1 = 1 
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TAG2 



NZ X. TAG1 

SX6=053025B 

LX6 42 

SX1=SEG1 

IX6=X6+Xl 

SA6=1 

SA2=1 

NZ X2 TAG2 

SX7=051604B 

LX7 42 

SA7=1 



.ASSURE RA+1 = 



TAG4 
SEG1 



.SET RA+1 TO EXU PARAMETER 
.WAIT FOR PPU TO ACCEPT CALL 

.SET RA+1 TO END 



ZR BO BO TAG4 .WAIT FOR THE PROGRAM TO TERMINATE 
CON 23050734000000000000B 



END 



B. CLL 



This package loads one or more central programs or segments into 
an area of memory specified by the calling program. 



1. Call 



This routine is called by setting certain parameters into 
RA+1 of the calling program. 



RA+1 










18 24 18 


bits 




BA 






FIRST 


BA+1 






LIMIT 


BA+2 


PROG 1 




PI 


BA+3 


PROG 2 




P2 



BA+n+1 PROG n 
BA+n+2 (zero) 



Pn 



where CLL is in display code 

BA is an 18 bit address where the parameters are 

located 
FIRST is the beginning address for loading the first 

program. 
LIMIT is the limit address for loading the programs 
PR0G1 
PROG2 
PROGn are the names (in display code with trailing 

spaces) of the programs or segments to be loaded. 
P1,P2 
..,Pn are set by CLL after loading the programs and are 

the beginning addresses of the associated overlays. 

All of the parameters except Pn must be set up by the calling 
program prior to setting RA+1. 
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2. Usage 



CLL loads the programs one at a time beginning with the 
name specified at BA+2. The order of search for locating 
the overlays is: 

1. Resident Subroutine Library - RSL 

2. Central Library Directory - CLD 

3. Assigned Job Files - common or local 

The programs are loaded into the consecutive memory locations 
beginning with FIRST. No program may be loaded beyond the 
address specified by LIMIT. After a program is loaded, its 
beginning address is entered into the lowest 18 bits of the 
respective parameter word. After Cll has completed the call, 
BA is cleared to zero. 

If program cannot be located, the address Pn for the program 
is not modified by CLL. If a program exceeds LIMIT, the value 
777777 is entered into the respective address Pn. The last 
parameter must be followed by a full word containing zero. 

It should be remembered that programs and segments compile with 
a reference address beginning with zero (000000). Since the 
central program calling CLL resides at zero, the loaded 
programs (by CLL) will not have proper address terms for those 
instructions containing 18 bit address. Therefore, the 
user must modify the addresses of the loaded program or use 
some addressing scheme where the calling program defines a 
pseudo-reference address in an index register whenever 
memory is referenced. 
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CONTROL -DA.TA CORPORATION 



Development Division - Applications 



CIRCULAR INPUT OUTPUT 



Chippewa Operating System 
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CIRCULAR INPUT OUTPUT 
CIO 

INTRODUCTION 

All input and output for a file is passed through a circular central 
memory buffer. Buffer parameters are initialized by the central memory 
program and then the CIO package is called to perform the transfer to or 
from the physical medium of the file. These parameters are altered by CIO 
or the central program as data is inserted or extracted from the buffer. 
A circular effect is achieved by allowing the data to wraparound the buffer 
whenever the limit address of the buffer is reached. For example, on an 
input request data is inserted into contiguous words until the last address 
of the buffer is encountered. The next piece of data will be stored in 
the beginning address of the buffer so that the total capacity of the 
buffer may be utilized. All system central memory buffers, i.e. dayfile, 
etc., use this circular motion even if CIO is not specifically called to 
perform the I/O operation. 

CALLING SEQUENCE , 

A program requesting I/O must set up certain buffer parameters. The 
location of these parameters is sent to CIO via the lower 18 bits of RA+1. 
These parameters, along with the buffer itself must reside within the 
field length of the job, and their addresses are relative to RA. 

Five central memory words, designated as BA to BA+4, hold the para- 
meters. In the first word is the name of the file in left-justified display 
code to be acted upon and a six bit code called the buffer status. The 
first digit of the buffer status specifies the type of operation: the 
second gives the direction (read/write) and the mode (coded/binary). 
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BA+1 contains the beginning address of the buffer and is called FIRST. 
Along with LIMIT, the last address of the buffer plus one, FIRST remains 
dormant, i.e. CIO never changes these values. No data is stored in LIMIT. 
When LIMIT is reached, the next available address for storage is FIRST. The 
buffer capacity is referred to as the area between FIRST and LIMIT-1. 

The two remaining words, BA+2 and BA+3 , are the actual pointer addresses, 
IN (BA+2) defines the next available address for insertion of data into the 
buffer. OUT (BA+3) holds the address for removal of data from the buffer. 
Therefore, the amount of data residing in the buffer is thai: between IN and 
OUT. IN is advanced around the buffer, but never passing OUT so aa not to 
overstep the buffer capacity,, by a 'read' operation. Any 'write' request 
causes OUT to move in the direction of IN and to pass data from the buffer 
to the file in its advance. 

Either CIO or the central program may update IN and OUT. By moving IN, 
CIO could read data from a file to the buffer and the central program could 
remove the data from the buffer for its own use by moving OUT. The opposite 
effect would result if the central program inserted data into the buffer by 
incrementing IN and CIO transferred the buffer data to the file by moving OUT. 

Initially, the buffer parameters are set FIRST =f= IN =OUT with IN and 
OUT circling the buffer as data is inserted or removed. An empty buffer is 
reflected by IN = OUT. This condition is distinguished from a full buffer, 
IN = OUT-1, by an unused word between IN and OUT. The useable data in the 
buffer begins at OUT and continues (circling the buffer if necessary) to 
IN-1. 
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BUFFER STATUS 

The buffer status appears as a 2 digit octal code in the lower 6 bits 
of BA. This code indicates the mode of the buffer and provides an interlock 
for peripheral package activity. The buffer status has an even value when 
CIO is called. It is set to an odd value when the peripheral package has 
completed the I/O function. This six bit code is also kept as the last 
buffer status in the FST entry for the file. Whenever this value is checked 
and found to be even, the file is assumed to have an operation being per- 
formed on it, i.e. it is active. An odd value means that the file is not 
busy and is available for use. 

Normal reads and writes use 'buffer I/O 1 as the type of operation 
(first octal digit with the second digit specifying the mode). This is 
interpreted by CIO as a request to transfer as many records as possible 
between the file and the buffer. A short record, i.e. end-of-file or 
end-of-record, or a full buffer will terminate a read operation and a 
write request is stopped whenever OUT = IN. If a read was requested, CIO 
will alter the code to indicate whether an 'end-of-record' or 'end-of-file' 
was read, whenever the buffer is to be emptied to the file by a write 
•operation, the central program must issue either an » end-of-record' or 
'end-of-file' write. This causes all of the data to be transferred and an 
'end-of-logical-record' or 'end-of-file' to be written on the file. 
Therefore, if the buffer does not contain a full record of data and an 
'end record' write was not issued, no data will be transferred. 

When MTR accepts the I/O request by assigning CIO to a PP, RA+1 is 
cleared. In order for the central program to know when the PP has finished 
the I/O operation, the buffer status must be checked for an odd value. 
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If a 'read' was requested, the first octal digit may have been altered by 
CIO, but otherwise, only the second digit is incremented by one. On a 
'binary backspace' the first digit is a 4 and the second may be either a 
2 or 6 because only the second bit in the code is checked for the set 
condition. 

INTERNAL STRUCTURE 

Whenever an I/O operation is to be performed on a file, the CIO package 
is assigned to a peripheral processor. CIO examines the request and passes 
control within itself to the proper function. The buffer parameters are 
checked for legality to insure that the operation remains within the job's 
field definition. 

A file may be of any equipment type - disk, card reader, card punch, 
line printer, or magnetic tape. The driver for each operation on a piece 
of equipment is written as a separate routine. The CIO function decides 
which driver is needed and calls it into the PP as an overlay. These over- 
lays do the physical I/O and update the buffer parameters accordingly. 
Whenever their task is finished, CIO completes the request so that the 
calling program may continue its execution. 

OPERATION 

Each function ( read, write, or backspace) within CIO calls special 
overlays. These overlays do more specific parameter checking to insure 
tl.at the buffer can contain the amount of data requested. Parity error 
checking and buffer status updating are also the responsibilities of the 
overlay. 



The Read function calls 2RD'(read disk), 2RT (binary tape read), 
2RC (read cards), and 2RT (BCD tape read). IN is incremented to reflect 
the number of words read from the file to the buffer and the first octal 
digit of the buffer status may be changed if an 'end-record' or 'end-file' 
is read. 

Data is read by 2RD one sector (100 o central memory words) at a 

o 

time until a short sector is encountered or the buffer is filled. If a 
disk parity error is found, the sector is reread with varying margins 
three times and if it persists the PP stops. Only dead start will force 
reinitialization. 

2RC transfers only useable data to the buffer by suppressing trailing 
blanks with a zero byte ( 12 bits). Ten characters per word are translated 
from Hollerith to display code and packed until a zero byte is inserted 
to signal 'end-of-physical-record' . A 7-8-9 card causes a short sector 
to be transferred. Only one file mark may appear within one diskfile, so 
when a 6-7-8-9 card is found, an 'end-of-record' sector is copied along 
with a second short sector to indicate end-of-file. 

A. binary record of less then 4 bytes is considered a noise record by 
2RT. If this overlay discovers that there is not enough room in the 
buffer to handle a full block of 512 words, no data is transferred. A. 
read is tried 3 times before a parity error message is sent to the dayfile. 
Only one block of data is read per request. Rewinding is also done by 
this overlay. 

A BCD tape record is a constant 120 characters long. All trailing 
spaces are eliminated by a zero byte and the BCD characters are translated 
into display code. A record less than 6 bytes is considered noise and a 
record is read 3 times before a parity error message is sent. 
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The Write function is in-.charge-of updating OUT. As data is removed 
from the buffer and copied to the file, OUT moves in the direction of IN 
until OUT = IN. Only a short record request will cause the buffer to be 
completely dumped of information and the appropriate indicator to be 
written on the file. 

A check is made to see if the last reference to a disk file was a 
write. If it was not, the tracks thus far reserved by the file are 
dropped by 2DT. This provides multi-use of a file. Data written on a 
file can be backspaced and read and another write request will cause the 
beginning of the file to be referenced. 

2WD is loaded to write disk data. If there is not enough data in 
the buffer for a full sector (64 words) and an 'end-record' was not 
requested, no data is written on the file. Every write is terminated by 
an EOF sector but since none of the parameters are advanced, the next 
write request will write over this sector. It prevents a file from ever 
running away. Two tracks are requested at once so that time is not wasted 
whenever one track is filled and another is needed. 

To punch both binary and Hollerith cards, 2PG is loaded. This overlay 
is called whenever a file has been assigned to the card punch by a control 
card and a write operation requested on the file. Eighty characters or 
the number of characters to the first zero byte are assembled from display 
code to Hollerith. A 7-8-9 or 6-7-8-9 card is punched if requested. In 
the case of a binary request, 15 words of data are punched on a card with 
the appropriate binary controls - word count, 7-9 punches in column one, 
checksum, and sequence number. 
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2LP is loaded to print the file assigned to a line printer. A print 
line consists of either 130 characters or the number of characters' to a 
zero byte. Page spacing is checked by this overlay. 

To write a binary tape 2WT is loaded. This overlay is called into 
play to do all writes on 1" tape and binary writes on %" tape. Coded 
records on 1" tape are in packed display code and terminated by a zero 
byte. A logical record consists of 1000s central memory words. If a 
parity error is encountered, the tape is backspaced and rewritten with 
no erasing until a good write is made or an error flag is set. 2WT 
also writes a file mark when one is requested. 

2WT is loaded to write BCD tape. All BCD tape records are 120 
characters long. If a zero byte is found before 120 characters have been 
converted from display code to BCD, the record is padded with spaces until 
120 characters are reached. The writing continues for full blocks of data 
contained in the buffer until an 'end-record 1 or 'end-file' is requested 
to empty the buffer. 

The Backspace function is called to backspace either binary or coded 
records. An end-of-file is considered a record or a coded line in each 
mode respectively. This action causes IN to be advanced down the buffer 
and a read is not necessary after a backspace to make the data available 
for use. A binary disk backspace may be very slow. Since a record can 
be written on several tracks, each pointer word before each sector must 
be checked for a track change. If a file contains only one record, a 
rewind operation is much faster. 

2BD does either binary or coded backspacing on the disk. A binary 
backspace is done until a short sector is found. The file will be 
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positioned either in front of the file mark just written or at the 
beginning of the last record. Only one coded line is backspaced with 
this request. OUT will reflect the address before the last card image 
or zero byte. No read is required to bring the data back in because the 
pointer words are properly adjusted. 

2BT is loaded to perform the same backspace operations on tape. 
The physical tape is moved. 

RECALL 

The central program retains control of the central processor while 
CIO is performin the I/O operation. MTR clears RA+1 when the CIO request is 
accepted informing the central program to continue processing. If no 
further processing can be done until the data is transferred, the central 
processor should be given to another job. By inserting an RCL call 
(recall) in KA+1, control is taken away from the central program by 
MTR and switched to another job. Control is regained when a PP com- 
pleting an operation tells monitor to recall the proper central program, 
or a time span of near 250 ms. has lapsed. Effective use of recall 
allows the central processor to be utilized more efficiently. 

A workable sequence of events that will allow the central processor 
to execute other jobs while an I/O operation is holding up a central 
program is : 

1) Send CIO call to RA+1 

2) Wait until MTR has accepted the request by clearing RA+1 

3) Check buffer status for an odd value. 

4) If an odd value is found, continue normal processing, otherwise 

send RCL call to RA+1 

5) Repeat steps 2-4, exiting only if the buffer status is odd 
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BUFFER STATUS 





first digit 


OX 


not used 


IX 


buffer I/O 


2X 


end record 


3X 


file mark 


4X 


backspace 


5X 


rewind 


6X 


rewind/unload 


7X 


not used 



xo 

XI 
X2 
X3 
X4 
X5 
X6 
X7 



second digit 

request coded read 
completed coded read 
request binary read 
completed binary read 
request coded write 
completed coded write 
request binary write 
completed binary write 



EXAMPLE: 



request to CIO 
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READ 



answer from CIO 




full buffer 

end of record encountered 

end-of-file encountered 



WRITE 



request to CIO 



answer from CIO 



X5 



dump as many complete records as possible 
empty buffer and write end of record 
empty buffer and write end of file 

where X from the call is unaltered 
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BEGIN CIO 

BUFFER CONTROL ADDRESS 

IN INPUT REGISTER OF PPU 



CALL EBP OVERLAY 
VERIFY ARGUMENTS 
READ BUFFER STATUS 
RESERVE FILE 



IS A READ FUNCTION REQUESTED ? 



YES 



NO 



IS A WRITE FUNCTION REQUESTED ? 



YES 



NO 



IS A BACKSPACE FUNCTION REQUESTED ? 



YES 



NO 



IS FILE A DISK FILE ? 



YES 



RESET FILE STATUS FOR REWIND 



£» IS FILE A. TAPE UNIT ? 



NO 



YES 



CALL 2RT OVERLAY 
REWIND TAPE 



CIO READ FUNCTION 



CIO WRITE FUNCTION 



IS FILE A DISK FILE ? 



IS FILE A TAPE UNIT ? 



NO 



SET READ MODE 
SET IN -OUT -FIRST 



CALL 2BD OVERLAY 
BACKSPACE DISK 



CALL 2BT OVERLAY 
BACKSPACE TAPE 



i i 



SET READ MODE <■ 



RELEASE FILE 

STORE BUFFER STATUS 



RECALL CPU 



RELEASE PPU 
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ENTER CIO READ FUNCTION 



IS FILE A DISK FILE ? 



YES 



HAS FILE BEEN USED ? 



YES 



CALL ERD OVERLAY 
READ DISK DATA 



EXIT 



SET FILE MARK 



EXIT 



*■ IS FILE A CA«0 READIER ? 



NO 



YES 



IS FILE A TAPE UNIT P 



YES 



CALL ZRT OVERLAY 
II KOBE BINARY ? 



YES 



NO 



READ UNARY TAW * 



:t»T', : liV 



CALL 2RC OVERLAY 
READ CAMS 
EXIT 



SET FILE MARK 
EXIT 



» IS TAPE TYPE MT P 



NO 



Y£S 



K«t» 



D 
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Enter CIO write function 



.il- 



IS FILE A DISK FILE ? 



YES 



HAS FILE BEEN USED ? 



YES 



Was last use in white 
mode f 



Call 2DT overlay. 
Drop disk .tracks. 



^A IS A FILE mark requested f 



YES 



JL 



was last record completed p 



NO 



YES 



IS THERE DATA IN THE BUFFER ? 



YES 



Call 2WD overlay 

WRITE DISK DATA 



» EXIT 



5> IS FILE A CARD PUNCH? 



YES 



NO 



Call ZPC overlay 

PUNCH CARDS 
EXIT 



V 



IS FILE A LINE PRINTER ? 



NO 



Call 2LP overlay 

PRINT DATA 
EXIT 



V 



Is FILE a TAPE UNIT f 



NO 



YES 



Call EWT overlay 

IS A FILE MARK REQUESTED j> 



NO 



JilL 



WAS LAST RECORD COMPLETED ? 



NO 



YES 



IS THERE DATA IN THE BUFFER f 



IS TAPE TYPE MT t "^ 



JL 



IS MODE BINARY J 



NO 



YES 



» WRITE BINARY DATA 



NO 



WRITE BCD DATA 



— > IS A FILE MARK REQUESTED ? \G- 
NO ' 



YES 



WRITE FILE MARK 



-5* EXIT 
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DAYFILE 



INTRODUCTION 

The dayfile is a combination accounting medium and job status record. It appears 
as a major display for the system console and is part of every job's output. Any 
message a programmer wishes to convey to an operator is passed through the day- 
file. All control cards, error diagnostice, running times, and equipment assign™ 
ments appear as a console display and are later sorted for a particular job's out- 
put. 

A message may enter the dayfile from a central memory program or a peripheral 
routine. In the case of a central memory program, a peripheral package (MSG) is 
called to transfer the message from central memory to the PP message buffer and 
then to inform monitor that dayfile action is required. A peripheral routine 
need only put the message in the message buffer and let monitor take the appro- 
priate steps. When monitor does sense that a message is ready, it transfers the 
message to the associated control point's dayfile area and then sends the message 
to the dayfile buffer in the proper format. This new entry is then picked up by 
the display program (DSD) and shown on the console. 



STRUCTURE 



The dayfile buffer status (DFB) is contained in word three of central memory. It 
points to a 1000„ word buffer for dayfile entries and maintains the FIRST, IN, 
OUT, and LIMIT addresses. Each entry made in the dayfile consists of three parts, 

1) The time that a message is sent. 

2) The name of the job to which the message belongs. 

3) The message of not more than six words. 

All three parts are in separate words. Therefore, every dayfile entry is at 
least three words long but not more than nine. The time is read from word thirty 
of central resident and is in the form XX.YY.ZZ. where XX is hours, YY is min- 
utes, and ZZ is seconds. At dead start this word is zeroed so it will reflect 
the time since dead start unless a "TIME" entry is made to DSD via the keyboard. 

Monitor changes the spaces in the job name to blanks and terminates the field 
with a period. A zero byte ends the message so that word after word is trans- 
ferred until the zero byte is found. 



UPDATING BY CENTRAL PROGRAMS 



In order for a central program to. make entries into the dayfile, a peripheral 
program (MSG) is called to retrieve the message from central memory and inform 
monitor of the request. The location of the message and MSG (in left- justified 
display code) is inserted in RA+1 of the program. This causes MSG to be assigned 
to a PP and the message transferred to the PP's message buffer. 

A check is made to insure that every character is a legal display code. If an 
illegal character is found, MESSAGE FORMAT ERROR is is'sued to the dayfile and 
the job is abandoned. Every entry made into the dayfile by a particular job ad- 
vances a message count by one. In MSG this total is examined for an excess of 
100 messages. No more than 6 words may be passed to the dayfile in one message. 
If either of these rules is violated, MESSAGE LIMIT is sent to the dayfile. 

After the message is residing in the PP's message buffer, MTR is informed so that 
the message can be passed to the dayfile buffer. MSG is used by the Fortran com- 
piler to enter the name of the program currently being compiled or executed.. 



UPDATING BY PERIPHERAL PROGRAMS 

In a peripheral processor's resident program is a section of coding which copies 
a message from a transient program into the PP's message buffer. Each of these 
messages is assumed to have legal display codes and ended by a zero byte. The 
location of the message is in the A register upon entry to the routine. A return 
jump to location 530 will cause the message to be transferred to the PP's message 
buffer and then MTR is told of the request. 

All transient programs use this method of making entries into the dayfile and 
each request will advance the message count at a job's control point, even though 
MSG is the only program which checks for a excess of the limit. 



MTR - ISSUE' DAYFILE 

Whenever a PP has a message for the dayfile, the message is put into the message 
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buffer and 0001 is inserted into the first byte of output register. MTR senses 
a request and begins dayfile updating procedures. 

The message is passed from the PP buffer to an eight word area in the control 
point area. Word 30 of central memory which contains the current time is read 
into one word and the name of the job is put into another word. Next the message 
is copied until a zero byte is encountered and then all three sections are sent 
to the dayfile buffer. The PP output register is cleared to inform the PP that 
the message has been transferred. Only at this pointe is the message count in- 
creased by one so that every message is totalled. 

IN and OUT are checked to see if 100 words (a full sector) of information is 

o 

contained in the day file buffer. If there is, phase one dump flag is set. No 
additions may be made to the buffer when a dump flag is set. 



MTR - COMPLETE DAYFILE 

This function is issued by 1DJ (print package) or 1TD (tape dump package) when 
a job's output is being formatted. Its purpose is to remove all dayfile infor- 
mation from the buffer to the disk so that only the disk need be read when a job's 
dayfile is to be printed. The complete dayfile flag and 'dump phase one' flag 
are set. If the 'complete dayfile' flag is found to be set, then this is the sec- 
ond time through so it is cleared along with the output register. 

Only the two MTR functions issue dayfile and complete dayfile, may set phase one 
dump flag. 



MTR - CLOSE OUT 

The dayfile buffer is dumped into the disk whenever a full sector of data is built 
up or whenever a job is to be printed. This process involves several steps, each 
of which set a flag for the subsequent phase. No entry may be made to the buffer 
when a dump flag is set. 



On MTR's main loop a check is made to see if a dump flag is set. This 
flag is an address of the next phase and each phase is entered by a 
return jump. Every disk positioning request constitutes a different 
phase so that time is not wasted waiting on the disk. 

Phase one requests channel for the disk and phase two dump flag is 
set. MIR regains control and will continue its processing until the 
dump flag is checked again. This time phase two is entered via a 
return jump. If channel is ready for use, a request for disk posi- 
tioning to the proper track is issued and phase three dump flag is set. 
The current track and sector to be used by the day file is maintained 
by absolute coding. The 'update control byte' routines set the value 
of the current track and sector into the different dump phase locations 
directly. 

Phase three checks channel disk file status. The next sector must 
correspond to that set by 'update control byte' or an exit is made. 
One sector is written on the disk and the buffer parameters are updated 
accordingly. Then phase two flag is set. The buffer is dumped one 
sector at a time until a short sector is encountered. It is written 
on the disk but neither the buffer parameters nor the sector number are 
advanced. This scheme is used in order to maintain the dayfile as 
one record but still have all the information on the disk. Channel 
is released via. the output register and phase six flag is set if a 
spare track is assigned. If no spare track has been assigned, channel 
is still released but phase four dump flag is set. 
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Phase six makes sure that the channel is released and clears the dump 
flag. This terminates dumping the dayfile buffer onto the disk so 
that normal processing may continue. 

Phase four requests a track of MTR and sets phase five dump flag. When 
phase five is entered via a return jump, the spare track number is 
retrieved from the first byte of the message buffer and then the dump' 
flag is cleared. This also completes the dayfile dump. 

JOB DAYFILE LISTING 

At the end of each job's output a complete history of each run during 

one dead start period is printed. 1DJ (print package) or 1TD (tape 

dump package) requests MTR to dump the dayfile buffer contents on the 

disk in the manner just previously described. Next, one sector of the 

dayfile is read and it is searched for the job's entries by 2SD (search 

dayfile). 

Since the time a message is issued appears in the word before the job 
name, every word of the sector is checked for the proper job name. If 
the word does not match, it is copied into the peripheral buffer but 
its parameters are not advanced. When the name finally matches, the 
time has already been copied into the peripheral buffer so the job 
name is added in the next word. Then the subsequent message is trans- 
ferred until the zero byte is encountered. 

Control fluctuates between the dump package, i.e. 1DJ or 1TD, which 
reads a sector of the dayfile, and 2SD, which searches it for a parti- 
cular job name. The dayfile is searched in this manner until a short 



sector is found. When it is encountered, a MTR function requesting 
assignment of PP time to the control point is made. This computes 
the total PP running time and stores it in word 24 of the control point 
area. 2SD converts this time to decimal seconds and then sends out a 
dayfile message "PP XXXX SEC". 

A top of form request is made as the first entry into a circular buffer 
in central memory. The peripheral buffer containing the dayfile informa- 
tion for this job is copied to the circular buffer. An entry of the 
same type, "PP XXXX SEC", that was sent to the dayfile is added to the 
circular buffer. Now the job's dayfile is complete and ready for 
printing. 

NOTES 

1. The dayfile is the first entry in FNT. It is set from the library 
tape and is of common type so that any program may access it. 

2. Any message sent to the dayfile also appears as a console message 
(line 3 of the control point display) 



